Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: For Schleife nur einmal ausgeführt
Autor: VBRunner
Datum: 21.07.06 12:20
Hi vb-freak, Private Sub Form_Load() Dim i%, L%, Pos&, EPW$, VPW$ VPW = "0101010°100101110°00" 'Beispiel für VPW L = Len(VPW) 'Länge 20 For i = 1 To L ' For i=1 bis 20 Pos = InStr(1, VPW, "°") 'erstes gesuchtes Zeichen an Position 8 Pos=8 BINIASC = Bin2Dec(Val(Mid(VPW, 1, Pos - 1))) 'Hier werden die ersten 7 Zeichen 'in Dezimal umgewandelt -problematisch 'wenn eines der 7 Zeichen nicht umgewandelt 'werden kann - gesucht wird ja nur nach "°" EPW = EPW & Chr(BINIASC) 'Hier wird nun das Ergebnis an EPW übergeben VPW = Mid(VPW, Pos, L) 'hier wird ein Teilstring ab Pos 8 bis zum Ende des Strings 'an VPW übergeben und der ursprüglich String dadurch ersetzt L = Len(VPW) 'hier wird die neue Stringlänge(13) von VPW übergeben Next i 'i erhöht sich auf 2 End Sub 'Im 2. Schleifendruchgang ist: 'VPW ="°100101110°00" 'L=13 'i=2 'In diesem Durchgang wird: 'Pos=11 'VPW = "°00" 'Bin2Dec() wird das "°" übergeben FEHLER! 'L = 3 'i = 3 'Schleifenbedingung ist erfüllt i=L 'Anmerkung: 'Sobald dein String mit "°" beginnt tritt ein Fehler auf Cu, VBRunner

For Schleife wird übersprungen	798	vb-freak Andi	20.07.06 16:14
Re: For Schleife wird übersprungen	548	Zardoz	20.07.06 16:39
Re: For Schleife wird übersprungen	517	VBRunner	20.07.06 18:01
Re: For Schleife wird übersprungen	542	vb-freak Andi	20.07.06 23:45
Re: For Schleife wird übersprungen	452	Zardoz	21.07.06 12:00
Re: For Schleife wird übersprungen	989	VBRunner	21.07.06 12:31
For Schleife nur einmal ausgeführt	460	vb-freak Andi	21.07.06 08:23
Re: For Schleife nur einmal ausgeführt	395	Zardoz	21.07.06 11:51
Re: For Schleife nur einmal ausgeführt	421	VBRunner	21.07.06 12:20
Re: For Schleife nur einmal ausgeführt	460	vb-freak Andi	21.07.06 22:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen