UC知道删除text1里中文字符
来源：百度知道 编辑：UC知道 时间：2024/06/01 17:59:24
我要编一个VB程序，如：在Text1中显示了：1.apple 去
2.banana 我很好
3.orange 饿发
4.red 他
5.rom 给
（长度不确定）……
请问，如何按下Command2后将中文前的字符删除后显示在Text3中？
即：去
我很好
饿发
他
给
每个词都像上面的一样每个都另起一行
谢谢大家了
（必须管用哦，好的话我再+50分）
2.banana 我很好
3.orange 饿发
4.red 他
5.rom 给
（长度不确定）……
请问，如何按下Command2后将中文前的字符删除后显示在Text3中？
即：去
我很好
饿发
他
给
每个词都像上面的一样每个都另起一行
谢谢大家了
（必须管用哦，好的话我再+50分）
dim s,a,n,i
a=split(text1,vbcrlf)
for i=0 to ubound(a)
n=instr(a(i)," ")
s=s & mid(a(i),n+1) & vbcrlf
next
text3=s
建一个Text1,Text2，都设置Multiline为True。在Text1里面写你的内容。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim i As Integer, t As String
t = Text1.Text
For i = 14 To AscW("一") - 1
t = Replace(t, ChrW(i), vbNullString)
Next
Text2.Text = t
End Sub
private sub Command2_Click()
dim f$(),i%
f=split(text1.text,vbcrlf)
for i=0 to ubound(f)
f(i)=split(f(i)," ")(1)
next
text3.text=join(f,vbcrlf)
end sub
'看见你的第二个问题，我好像明白你的意思了，试一试下面的代码
'添加控件 Text1、Text2、Text3、Command1、Command2
'将三个文本框的 MultiLine 属性均设为真
'然后复制下面的代码
Private Sub Form_Load()
Command1.Caption = "删除中文": Command2.Caption = "删除英文"
Text1.Text = "1.apple 去" & vbCrLf & _
"2.banana 我