今天又增加了一个函数，用来处理“统一分隔符”的，却报错了，奇怪地是报错后，却能得出正确的结果，请老师指点。
此主题相关图片如下：qq截图20160121225751.png
Sub btn_UniformSeparator
'统一分隔符
Dim str As String = Args(0) '获取要处理的文本
str = str.Replace(vbcrlf," ") '用空格替换回车与换行符
Dim nstr As String
For Each s As String In str.Split(" ") '用空格分割字符串,以数组形式返回结果.
If s.Trim() > "" Then '不为空字符串,则叠加连接
nstr &= " " & s 'nstr = nstr & " " & s等效
End If
Next
MessageBox.Show(nstr,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End Sub
注：函数的参数是通过Filesys.ReadAllText()获取的。
[此贴子已经被作者于2016/1/21 23:05:48编辑过]
加好友 
发短信
Post By：2016/1/21 1:27:00 [显示全部帖子]
