如何把文字没用的地方批量删除掉

不做商人

怎么取出下面那段文本的左边IP部分，把文字没用的地方批量删除掉。{:soso_e160:}



保留 58.64.193.174:120   删@HTTP;香港 新世界电讯数据中心
82.223.208.75:80@HTTP;西班牙 Arsys网络
58.64.193.174:85@HTTP;香港 新世界电讯数据中心
58.64.193.174:8898@HTTP;香港 新世界电讯数据中心
84.38.67.183:8080@HTTP;德国  CZ88.NET
211.155.128.46:8080@HTTP;北京市 广电网
111.235.67.169:8080@HTTP;印度  CZ88.NET
58.64.193.174:193@HTTP;香港 新世界电讯数据中心
58.64.193.174:202@HTTP;香港 新世界电讯数据中心
96.255.255.106:8080@HTTP;美国 佛吉尼亚州Ashburn市Verizon Online有限公司
58.64.193.174:34641@HTTP;香港 新世界电讯数据中心
58.64.193.174:19396@HTTP;香港 新世界电讯数据中心
58.64.193.174:153@HTTP;香港 新世界电讯数据中心
217.108.157.146:80@HTTP;法国  CZ88.NET
202.90.128.81:8080@HTTP;菲律宾  CZ88.NET
120.28.59.44:8080@HTTP;菲律宾 Globe电信
111.235.67.164:8080@HTTP;印度  CZ88.NET
46.32.192.8:8080@HTTP;巴勒斯坦  CZ88.NET
190.120.91.233:80@HTTP;厄瓜多尔  CZ88.NET

千年

test.zip (1.59 KB, 下载次数: 24)

2012-2-16 18:25 上传

点击文件名下载附件

我还是上传附件吧！！！

不做商人

我的方法是，文本_插入文本到某行前 (编辑框3.内容, 2, “前面特征”)

然后用取中间批量，但是,文本_插入文本到某行前,这个命令没反映了。{:3_227:}

千年

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 文本数组, 文本型, , "0"
   
5. .局部变量 i, 整数型
   
6. .局部变量 文本, 文本型
   
7. .局部变量 文本数组2, 文本型, , "0"
   
8. 
   
9. 通用对话框1.初始目录 ＝ 取运行目录 ()
   
10. .如果真 (通用对话框1.打开 () ＝ 真)
    
11.     文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    
12.     .计次循环首 (取数组成员数 (文本数组), i)
    
13.         文本数组2 ＝ 分割文本 (文本数组 [i], “@”, )
    
14.         文本 ＝ 文本数组2 [1]
    
15.         编辑框1.加入文本 (文本 ＋ #换行符)
    
16.     .计次循环尾 ()
    
17. .如果真结束
    
18. 
    

复制代码