判断文本内容格式

JOKER♂少特

我要写一个IE代理软件,可以手动导入IP.
IP格式: 192.168.1.1:8000
我用的是文本分割的方法,将IP和端口分割后导入超级列表框!
现在遇到的问题是.如果我导入的文本格式正确的话,会直接导入.但是文本不正确就会造成程序崩溃,假死!出现成员数不能是1的警告!现在我就是想用判断的方法,判断文本里的的格式,如果格式不对就提示!这样可以防止程序崩溃么!新手请各位大神指教!这里的格式不是让比较数值大小,别搞错了!
下面是我的源码.各位大神可以直接参考我的源码修改.谢了!

[e]
.版本 2
.支持库 iext

.子程序 _导入IP_被选择
.局部变量 x, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 w, 文本型
.局部变量 v, 文本型, , "0"
.局部变量 l, 整数型
.局部变量 m, 文本型, , "0"

x ＝ 多文件对话框 (“选择IP文件”, “文本文件(.TXT)|*.txt”, , 取运行目录 (), )
' 和通用对话框功能一样，但是这个可以打开多个文件哦，接收变量x保存的是你打开的所有文件名
.如果真 (取数组成员数 (x) ＞ 0) ' 如果有选择的文件
.计次循环首 (取数组成员数 (x), i) ' 几个文件就循环计次
w ＝ x ' 新建一个变量保存当前执行的文件名
v ＝ 分割文本 (到文本 (读入文件 (w)), #换行符, ) ' 把当前文件名按照换行符分割成一行一行的
.计次循环首 (取数组成员数 (v), l) ' 有几行执行计次
m ＝ 分割文本 (v [l], “:”, ) ' 例如: 192.168.1.1:8080 ，把IP和端口分割开
超级列表框1.插入表项 (超级列表框1.取表项数 (), 到文本 (超级列表框1.取表项数 () ＋ 1), , , , ) ' 插入编号
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, m [1]) ' 变量的第一个是IP
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, m [2]) ' 变量的第二个是端口
.计次循环尾 ()
.计次循环尾 ()
[/e]

人品3级

v ＝ 分割文本 (到文本 (读入文件 (w)), #换行符, ) ' 把当前文件名按照换行符分割成一行一行的
在这一句后面加上判断
如果(取数组成员数 (v))>0
然后再计次循环首

宿海仁太

等待大牛解决

tenliq

二楼的可以解决

JOKER♂少特

oohh0033 发表于 2013-4-9 12:24
v ＝ 分割文本 (到文本 (读入文件 (w)), #换行符, ) ' 把当前文件名按照换行符分割成一行一行的
在这一句后 ...

是 如果(取数组成员数 (v)>0) 吧.这只是判断有没有文本内容吧!我要的不是这,我要判断文本内容的格式,看清是格式,不是判断有没有内容!晕,搞错了把奖励给你了.

人品3级

JOKER♂少特 发表于 2013-4-9 16:04
是 如果(取数组成员数 (v)>0) 吧.这只是判断有没有文本内容吧!我要的不是这,我要判断文本内容的格式,看清 ...

一样的拉  
在这句
m ＝ 分割文本 (v [l], “:”, ) ' 例如: 192.168.1.1:8080 ，把IP和端口分割开
判断m的数组成员数  
如果 （xxx>xx）{
超级列表框1.插入表项 (超级列表框1.取表项数 (), 到文本 (超级列表框1.取表项数 () ＋ 1), , , , ) ' 插入编号  
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, m [1]) ' 变量的第一个是IP  
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, m [2]) ' 变量的第二个是端口
}
记住  要使用数组下标的时候   先判断数组长度是否符合你的要求