Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zeichenfolge
Autor: Rantanplan
Datum: 20.05.02 12:00
Hallo Leute Vieleicht könnt ihr mir helfen, weiterzukommen. Ich hab nen sourcecode, der mir automatische zeichenfolgen erstellt. allerdings schreibt er mir immer ne null dahinter, die ich nicht brauchen kann... mein sourcecode: Private Sub Command2_Click() Close z = 1 y = 1 For g = 48 To 122 For f = 48 To 122 For e = 48 To 122 For d = 48 To 122 For c = 48 To 122 For b = 48 To 122 For a = 48 To 122 z = z + 1 If z = 1000 Then z = 1 y = y + 1 End If t = Format(y, "#######") Open "d:zeichenfolgezf" & t & ".txt" For Append As #1 DoEvents Close If a = 57 Then a = 64 If a = 90 Then a = 96 Next a If b = 57 Then b = 64 If b = 90 Then b = 96 Next b If c = 57 Then c = 64 If c = 90 Then c = 96 Next c If d = 57 Then d = 64 If d = 90 Then d = 96 Next d If e = 57 Then e = 64 If e = 90 Then e = 96 Next e If f = 57 Then f = 64 If f = 90 Then f = 96 Next f If g = 57 Then g = 64 If g = 90 Then g = 96 Next g Close End End Sub tja, könnt ihr mir vieleicht helfen, den code etwas schneller zu machen und vorallem das ich die nullen weg bekomm....

Zeichenfolge	66	Rantanplan	20.05.02 12:00
Re: Zeichenfolge	311	Dieter	20.05.02 13:39
Re: Zeichenfolge	52	Rantanplan	20.05.02 14:47

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