Hallo siva78,
angenommen, Du hast einen Button cmdTest und eine Textbox txtTest in Deinem Formular, dann könnte der Code wie folgt aussehen:
Option Explicit
Private textboxInhalt() As String
Private Sub cmdTest_Click()
Call fuelleArray(Me.txtTest.Text, 0)
Call zeigeInhalt
End Sub
'Rekursiver Aufruf der Methode
'Die einzelnen, mit einem Zeilenumbruch (vbNewLine) verbundenen Zeichenketten werden extrahiert
'und im Arrray gespeichert
Private Sub fuelleArray(str As String, i As Byte)
If (Len(Trim(str)) = 0 Or InStr(str, vbNewLine) = 0) Then
ReDim textboxInhalt(i)
textboxInhalt(i) = Trim(str)
Exit Sub
Else
Call fuelleArray(Right(str, Len(str) - InStr(str, vbCrLf)), i + 1)
End If
textboxInhalt(i) = Trim(Left(str, InStr(str, vbNewLine)))
End Sub
'Zur Überprüfung, Ausgabe des Array-Inhaltes
Private Sub zeigeInhalt()
Dim i As Integer
For i = 0 To UBound(textboxInhalt)
Debug.Print textboxInhalt(i)
Next
End Sub
Viele Grüße, Jan
|