Zeile aus Textbox auslesen Verfasst am: 03.03.2008, 12:37
Hi , ich habe mal von vbarchiv
diese hier kopiert
Code:
Public Function GetLineFromTB(TextBox As TextBox, _
lLine As Long) As String
Dim sLines() As String
sLines = Split(TextBox.Text, vbNewLine)
If lLine - 1 <= UBound(sLines) Then
GetLineFromTB = sLines(lLine - 1)
End If
End Function
so mein problem ist
das ich es dürch eine schleife machen will um einzele zeilen mit einer variabel auf zurufen
Code:
For Y = 1 To 40
varial(Y) = GetLineFromTB(Text1, Y)
Next Y
so nun leider geht das nicht weil
die funktion eine zahl haben will nach text1,
wie kann man dieses ändern
danke für die hilfe Spam bot
exe-cute_ Poster
Anmeldedatum: 21.10.2007 Beiträge: 154
Verfasst am: 03.03.2008, 13:12
Code:
dim varial() as string
For Y = 1 To 40
redim preserve varial(Y)
varial(Y) = GetLineFromTB(Text1, Y)
Next Y
ZiG_ Überflieger
Anmeldedatum: 07.03.2007 Beiträge: 1248
Verfasst am: 03.03.2008, 15:10
@DFJ
Das ist ne total schlechte Funktion. (In deinem Fall)
Klar ist das toll dass man damit jede beliebige Zeile zurück erhält.
Aber für deinen Fall ist das Blödsinn.
Du willst alle Zeilen von 1 bis 40 zurück bekommen.
Jetzt mußt du 40 mal diese Funktion aufrufen und die Funktion wird 40 mal den selben Vorgang wiederholen. Nämlich die Zeilen in ein Array splitten.
Wäre um einiges simpler, wenn du den code zum splitten direkt in deinen einbaust und der Teil nicht in eine Function ausgelagert ist.
@exe-cute
Redim Preserve ist in diesem Fall unnötig. Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Registrieren
Login
