[VisualBasic] Zeilenumbruch?

[Sonic]

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