Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Andre_V
Newbie
Newbie

Anmeldedatum: 28.06.2010
Beiträge: 2
RichTextBox Suchen/Ersetzten und Zählen.
Verfasst am: 28.06.2010, 16:48
Hay Leute

Bin neu hier und habe auch schon so manche Sachen in Vb gemacht.
Nun möchte ich mich mal mit der RichTextBox Auseinandersetzten.

Ich habe eine RichTextBox das Suchen und Ersetzen Funktioniert schon Prima.

nun möchte ich aber etwas kompliziertes machen.

Bsp:

Ich habe diesen Text

\377\377\0\377\377\0\377\377\0\

Nach Suchen und ersetzen sieht er so aus

,377,377,0,377,377,0,377,377,0,

nun möchte ich das erste Komma Ersetzten durch zbs. "Zeile1" dann 3 Zahlen und zum schluss dann ende.

Sollte dann so aussehen

"Zeile1=377,377,0 ende"

Aber wie ersetze ich nun alle Kommas gegen meine Sachen.?

Oder wie zähle ich nun alle drei.?


MFG: Andre
_________________
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 536

Verfasst am: 29.06.2010, 06:30
hi
der code ist zwar in vb6
aber wird entweder gleich funktionieren oder so ählich
Code:

Dim str As String: str = ",377,377,0,377,377,0,377,377,0,"
Dim dStr As String

str = Mid$(str, 2)

dStr = "Zeile1="
For i = 1 To 3
    dStr = dStr & Mid$(str, 1, InStr(1, str, ",") - 1)
    If Not i = 3 Then
        dStr = dStr & ","
        str = Mid$(str, InStr(1, str, ",") + 1)
    Else
        dStr = dStr & " ende"
    End If
   
Next
 
MsgBox dStr


lg
 
Andre_V
Newbie
Newbie

Anmeldedatum: 28.06.2010
Beiträge: 2

Verfasst am: 29.06.2010, 12:01
Jo das ist schon fast das was ich möchte.
Nur umfast dein Code die ersten 3 stellen.

Ich habe aber einen Code der aus weiss nicht bestimmt 200 zeichen besteht.

Deswegen habe ich oben geschrieben

\377\377\0\377\377\0\377\377\0\ ---> usw.

Ich versuche damit einen C Code aus einen Bild in einen verwertbaren Code zu machen.


LG: Andre
_________________
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 536

Verfasst am: 30.06.2010, 07:34

hi
na dann setzt du halt noch eine schleif davor
Code:

Dim str As String: str = ",377,377,0,377,377,0,377,377,0,"
Dim dStr As String

str = Mid$(str, 2)

For j = 1 To Len(str)

    dStr = "Zeile" & j & "="
    For i = 1 To 3
        If str = "" Then Exit Sub
       
        dStr = dStr & Mid$(str, 1, InStr(1, str, ",") - 1)
        If Not i = 3 Then
            dStr = dStr & ","
            str = Mid$(str, InStr(1, str, ",") + 1)
        Else
            dStr = dStr & " ende"
        End If
       
    Next
     
    MsgBox dStr

Next
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: ersetzen, richtextbox, suchen, text

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Konvertieren oder Neu schreiben einer VB 6 Anwendung? 856 27.06.2011, 07:47
Keine neuen Beiträge VB6: Projekt neu kompilieren ohne Steuerlemente Lizenz 383 05.01.2011, 16:09
Keine neuen Beiträge Suche viele Leute für einen Downloader 516 28.09.2009, 16:10
Keine neuen Beiträge Ich bin neu hier! 491 08.01.2002, 17:48
Keine neuen Beiträge Eine Exe-Datei ersetzen 361 09.12.2007, 18:02
 




[ Time: 0.2021s ][ Queries: 93 (0.0219s) ][ GZIP on - Debug on ]