- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [分享]控件代码的集中调试！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80340)
-- 发布时间：2016/1/21 1:27:00
-- [分享]控件代码的集中调试！
此主题相关图片如下：qq图片20160121205542.png
此主题相关图片如下：qq图片20160121210006.png
此主题相关图片如下：qq图片20160121210602.png
注意红色箭头所指的内容要一致。
对“代码控——小小阿波罗”的再次整理和优化，高手勿喷！
[此贴子已经被作者于2016/1/21 21:07:16编辑过]
-- 发布时间：2016/1/21 7:42:00
--
顶在顶楼。
-- 发布时间：2016/1/21 8:21:00
--
下载学习
-- 发布时间：2016/1/21 8:47:00
--
Foxtable的即时编译运行代码功能还是很好用的
-- 发布时间：2016/1/21 9:21:00
--
mark
-- 发布时间：2016/1/21 23:02:00
--
今天又增加了一个函数，用来处理“统一分隔符”的，却报错了，奇怪地是报错后，却能得出正确的结果，请老师指点。
此主题相关图片如下：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()获取的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码编辑器.zip |
[此贴子已经被作者于2016/1/21 23:05:48编辑过]
-- 发布时间：2016/1/22 8:56:00
--
加载函数事件这里调换一下位置，先Trim再判断
......
For Each FnCode_ As String In FnCode_A
Dim fnCd As String = FnCode_.Trim() \'删除前后的空格
If fnCd.Length > 0 Then
Dim p As Integer = fnCd.IndexOf("Sub ") \'获得代码块首次出现"Sub "字符的位置
......
而且应该在每个IndexOf之后加个判断
......
Dim p As Integer = fnCd.IndexOf("Sub ") \'获得代码块首次出现"Sub "字符的位置
If p > -1 Then
......
-- 发布时间：2016/1/22 10:46:00
-- 回复：（Hyphen）加载函数事件这里调换一下位置，先Tr...
位置一调换，一切OK了，可不知所以然，请老师赐教！