[VisualBasic] Zeilenumbruch?

[47x3]

hab folgendes problem:
bekomme über den COM Port in ein Textfeld daten geschrieben
(zb: 254,568,10025,0,1552) nun möchte (muss) ich, nach sagen wir 10 datenausdrücke (also nach dem zehnten ",") eine neue zeile beginnen lassen
-> wodurch dann am ende in jeder zeile 10 ausdrücke stehen welche mit "," getrennt sind.

bitte um hilfe!

[wbendl]

Hi!

Also ohne viel nachzudenken fällt mir diese Lösung ein.

- 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.

mfg

WB

[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

[47x3]

genau nach solch einer hilfe hab ich gesucht!
danke!
aber da ich zu einfach zu blöd bin
- kann mir das nicht jemand in ein kleines beispielprogramm packen damit ich seh wie das funktioniert (ich brings einfach nicht zam)
danke

[Sonic]

Anbei das VB 6.0 Beispielprogramm.

Der Button "Daten befüllen" füllt das obere Textfeld mit zufälligen, komma getrennten, Daten.
Der Button "Daten Aufsplitten" ruft die Funktion zum splitten auf.
Diese Funktion holt dich die Daten vom oberen Textfeld und schreibt sie in 10er Reihen in das untere.

Viel spaß damit!

LG

[47x3]

danke hat mir sehr geholfen!