UC知道VB多行插入字符问题 高手进
来源：百度知道 编辑：UC知道 时间：2024/05/18 01:14:22
现有文本框中的多行字符如下：
0010
0010
0010
1010
1010
1010
1010
我想在每行加入RETLW B'****'(*代表每行数字)
即形成
RETLW B'0010'
RETLW B'0010'
RETLW B'0010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1110'
注:请写出详细的VB代码。
0010
0010
0010
1010
1010
1010
1010
我想在每行加入RETLW B'****'(*代表每行数字)
即形成
RETLW B'0010'
RETLW B'0010'
RETLW B'0010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1010'
RETLW B'1110'
注:请写出详细的VB代码。
'根据回车换行符读入到一个数组,然后逐个处理,最后再返回到TEXT1中去
Private Sub Command1_Click()
a = Split(Text1, vbCrLf)
For i = 0 To UBound(a)
If Trim(a(i)) <> "" Then '如果不是空行
ttt = ttt & "RETLW B'" & Trim(a(i)) & "'" & vbCrLf
End If
Next i
Text1 = ttt
End Sub
'本地测试通过
dim str as string
str=text1.text
str="RETLW B'" & str
str=Replace(str, vbcrlf, "'" & vbcrlf & "RETLW B'")
str=str & "'"
text1.text=str