Question

我有一个文本框，其中写有'c'代码，我想用编程方式替换

这里是多行文本框中的'C'代码

   for ( count = 2 ; count <= n ; 

   if ( n >= 1

与

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

   if ( n >= 1 )

其中n> = 1或count = 2; count＆lt; = n可能会改变

Answer 1

您需要在文本框中循环显示文本行。您可以使用以下内容执行此操作。

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

您在循环中执行的修改每行文本的操作将取决于您的需求。您可以使用字符串函数，如Replace（），Left（），Right（），Mid（）等

那应该给你一个开始。

VB6找到＆amp;更换

1 个答案: