麻烦帮我把VB6这段代码转成vb.net2013的代码,谢谢了
result=text1.textSplitResult=Split(result,"'")Fori=1ToUBound(SplitResult)SplitResult(...
result = text1.text
SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Replace(SplitResult(i), "*", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then List1.AddItem SplitResult(i)
Next i 展开
SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Replace(SplitResult(i), "*", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then List1.AddItem SplitResult(i)
Next i 展开
展开全部
result = TextBox1.Text
SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Replace(SplitResult(i), "*", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then ListBox1.Items.Add(SplitResult(i))
Next i
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
