VB6 Suchen & Ersetzen

Question

ich eine Textbox, wo 'c' Code geschrieben ist, die, ich programmatisch ersetzen wollen durch

geht hier 'C' Code in multline Textbox

for (count = 2 ; count <= n ; 

    if (n >= 1 

mit

for (count = 2 ; count <= n) ; 

    if (n >= 1) 

wobei n> = 1 oder count = 2; zählen < = n ändern kann

Answer 1

Sie Schleife benötigen thro Achten Sie auf die Textzeilen im Textfeld. Sie können dies mit folgendem tun.

Private Sub Command1_Click() 
    Dim lines() As String 
    Dim trimmedLine As String 
    Dim i As Integer 

    If Len(Text1.Text) = 0 Then Exit Sub 

    lines = Split(Text1.Text, vbCrLf) 

    For i = 0 To UBound(lines) 
     'Trim white space from left of the line. Only used for checking if the line starts with for or if. 
     trimmedLine = LTrim(lines(i)) 

     If StrComp(Left(trimmedLine, 3), "for", vbTextCompare) = 0 Then 
      lines(i) = Left(lines(i), Len(lines(i)) - 1) & ");" 
     ElseIf StrComp(Left(trimmedLine, 2), "if", vbTextCompare) = 0 Then 
      lines(i) = lines(i) & ")" 
     End If 
    Next i 

    Text1.Text = Join(lines, vbCrLf) 
End Sub 

Was Sie in der Schleife tun, um den Text jeder Zeile zu ändern, hängt von Ihren Bedürfnissen ab. Sie können Zeichenfolgenfunktionen wie Ersetzen(), Links(), Rechts(), Mittel() usw. verwenden.

Das sollte Ihnen einen Anfang geben.