Zitat:
Original geschrieben von wbendl
- Mit Split() den gesamten Text in einzelne Blöcke zerlegen.
- Mit For/Next aus jeweils 10 Blöcken eine neue Zeile bilden.
Eleganter wäre es natürlich, die Daten direkt von der Schnittstelle zu empfangen, und entsprechend anzuordnen.
|
Kann wbendl nur zustimmen.
Beispielcode:
PHP-Code:
Private Sub SplitText(ByVal colums As Integer)
Dim i As Long
Dim field() As String
Dim fcount As Long
Dim output As String
field = Split(textfield.text, ",")
fcount = UBound(field)
For i = 0 To fcount
output = output & field(i)
If (i + 1) Mod colums = 0 Then
output = output & vbCrLf
Else
output = output & ","
End If
Next
textfield.text = output
End Sub
wobei textfield das textfeld mit den Daten ist.
Der funktion mußt du als parameter die anzahl der spalten übergeben.
LG