Søg
Avatar billede razmuz_dk Nybegynder
18. september 2001 - 22:08 Der er 7 kommentarer og
1 løsning

for

Istedet for at have sådan en lang ting..

If idata = \"help\" Then
s_r = \"No HELP..\"
ElseIf idata = \"test\" Then
s_r = \"test boing boing\"
ElseIf...

osv!!

så kan man vel lave en for()? - kender ikke meget til VB/ASP syntax  - men har kodet i PHP i 2-3 år nu.

der vil det se sådan ud

$array[0][command]=\"test\";
$array[0][response]=\"test\";
$array[1][command]=\"test2\";
$array[1][response]=\"respone2\";

for($i=0;sizeof($array)>$i;$i++) {
// gør noget
}

Hvordan vil det se ud i VB? =)
Avatar billede jelzin101 Praktikant
18. september 2001 - 22:19 #1
for i = 0 to ubound(array)
\'gør noget :)
next i
Avatar billede sjh Nybegynder
18. september 2001 - 22:20 #2
du kan også gører sådan:

If idata = \"help\" Then s_r = \"No HELP..\"
If idata = \"test\" Then s_r = \"test boing boing\"

Avatar billede jelzin101 Praktikant
18. september 2001 - 22:22 #3
eller brug case...

select case idata

case \"help\" : s_r = \"no help\"
case \"test\" : s_r = \"boing boin...\"

end select
Avatar billede razersedge Nybegynder
18. september 2001 - 22:25 #4
hmmm fatter ikk heelt det php, men hvad med dette? :

\'hvis vi nu siger at teksten fra idata stammer fra en txtbox

idata = text1.text

select case idata

case \"test\"
text1.text = \"test boing boing\"

case \"Help\"
text1.text = \"No Help\"
\'osv ...
end select


var det det du skulle bruge ?
Avatar billede razmuz_dk Nybegynder
18. september 2001 - 23:10 #5
Ja ok ... men fidusen er jo at man øverst laver en 2d array og så kører det igennem!..

hvis i forstår?

outputtet af

$array[0][command]=\"test\";
$array[0][response]=\"test\";
$array[1][command]=\"test2\";
$array[1][response]=\"respone2\";

for($i=0;sizeof($array)>$i;$i++) {
print \"Komando $i - $array[$i][command]<br>\";
print \"Svar $i - $array[$i][response]<br>\";
}

giver
Komando 0 - test
Svar 0 - test
Komando 1 - test2
Svar 1 - respone2


Forstår du/i?
Avatar billede jelzin101 Praktikant
18. september 2001 - 23:33 #6
det kan laves sådan her...

Dim ar(1, 1)
ar(0, 0) = \"test\"
ar(0, 1) = \"test\"
ar(1, 0) = \"test2\"
ar(1, 1) = \"respone2\"
For i = 0 To UBound(ar)
For a = 0 To UBound(ar) - 1
  Print \"kommando \" & i & \" er \" & ar(i, a)
  Next a
Print \"svar \" & i & \" er \" & ar(i, a)
Next i
Avatar billede jelzin101 Praktikant
18. september 2001 - 23:38 #7
Dim ar(1, 1)
ar(0, 0) = \"test\"
ar(0, 1) = \"test\"
ar(1, 0) = \"test2\"
ar(1, 1) = \"respone2\"
For i = 0 To UBound(ar)
    For a = 0 To UBound(ar) - 1
      Print \"kommando \" & i & \" er \" & ar(i, a)
    Next a
  Print \"svar \" & i & \" er \" & ar(i, a)
Next i
Avatar billede jelzin101 Praktikant
19. september 2001 - 15:15 #8
takker.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »