WCM Forum - [VisualBasic] Zeilenumbruch?

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - [VisualBasic] Zeilenumbruch? (http://www.wcm.at/forum/showthread.php?t=116683)

47x3	25.11.2003 19:29

[VisualBasic] Zeilenumbruch?

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

25.11.2003 20:16

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

26.11.2003 17:40

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

47x3	26.11.2003 19:12

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

27.11.2003 13:34

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	27.11.2003 19:04

danke hat mir sehr geholfen!

Alle Zeitangaben in WEZ +2. Es ist jetzt 06:37 Uhr.