En tæller i en løkke

Tags:    visual-basic

User
Bruger #661 @ 16.05.02 13:39
Hej alle

Jeg har lavet en løkke som jeg sagtens kan få til at kører, men jeg kan ikke få vist de rigtige værdier i min variabel "Tarp" er de nogen der kan se hvad det er hvad det er jeg laver forkert.

Jeg indsætter den kode som jeg gerne skal have til at køre.

Hilsen Mickey

Private Sub Command6_Click()

Dim navn0, navn1, navn2
Dim navntal
Dim Tarp

navn = "navn"
tal = 0

navntal = navn & tal 'Her laver jeg noget som jeg kan tælle op på, dette gør jeg på "tal" så det ser sådan ud "navn0"

'Indsæt dine filnavne herunder
navn0 = "test.txt" 'Her lægger jeg filnavne ind i en variabel
navn1 = "test1.txt"
navn2 = "slut"
'Indsæt dine filnavne herover

Tarp = navntal ' Det er menigen at jeg her skal kunne se værdien som der måtte stå i navn0 = 'test.txt og næste gang hvad der måtte stå i navn1 = test1.txt osv. osv

Do Until Tarp = "slut" 'Her lar jeg et loop

If navntal = "slut" Then

MsgBox "Mickey" 'Her kan jeg lægge en rutine ind

Else

MsgBox "Larsen"

tal = tal + 1 'Her tæller jeg op

navntal = navn & tal 'Og der laves en opdatering

End If

Loop 'Og der køres tilbage til "Do Until"
End Sub




1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Jeg ved lige præcis, hvad det er du prøver på, og for at opnå det, skal du bruge et såkaldt Array.

Jeg har lavet din rutine om, men prøv om den ikke virker nogenlunde, som du vil have den til:

<pre>
Private Sub Command6_Click()

Dim Navn(0 To 99) As String ' lav plads til 100 navne
Dim tal As Integer ' tæller

'Indsæt dine filnavne herunder
Navn(0) = "test.txt" 'Her lægger jeg filnavne ind i en variabel
Navn(1) = "test1.txt"
Navn(2) = "slut"
'Indsæt dine filnavne herover

For tal = LBound(Navn) To UBound(Navn) Step 1 '100% korrekt
'For tal = 0 To 99 'mindre korrekt
If Navn(tal) = "slut" Then
Exit For ' lad os komme ud af for..next loopet
Else
MsgBox Navn(tal)
End If
Next

End Sub
</pre>

Det sku' gerne være 100 points værd (hint hint)

Software is here and now but rock and roll is forever.



t