提取数据问题!

hello晨光 2003-08-20 03:06:55
有一文本文件内容如下
=============================================================
210.178.55.66 8080 transparent South Korea 19.08.2003 Whois
200.223.149.170 8080 anonymous Brazil 19.08.2003 Whois
194.219.52.52 80 anonymous Greece 19.08.2003 Whois
209.210.176.44 8888 anonymous United States 19.08.2003 Whois
211.110.7.213 80 transparent South Korea 19.08.2003 Whois
==============================================================

现在想把它变成

=============================================================
210.178.55.66:8080
200.223.149.170:8080
194.219.52.52:80
209.210.176.44:8888
211.110.7.213:80
==============================================================

要如何处理???
...全文
48 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
Brookes 2003-08-21
  • 打赏
  • 举报
回复
使用regEx啦!1.txt为原文件,2.txt为处理后的文件
<%
set fs=server.CreateObject("Scripting.FileSystemObject")
tfile=server.MapPath("2.txt")
sfile=server.MapPath("1.txt")
Set regEx = New RegExp
str="210.178.55.66 8080 transparent South Korea 19.08.2003 Whois"
regEx.Pattern = "[^\d\. ].*"
set a=fs.CreateTextFile(tfile,true)
set mFile=fs.OpenTextFile(sfile)
while not mFile.AtEndOfStream
str_read=mFile.ReadLine
str_read=trim(regEx.Replace(str_read,""))
a.WriteLine(str_read)
wend
%>
hello晨光 2003-08-21
  • 打赏
  • 举报
回复
当然没问题!
解决了。
如果能发个最简单的列子,五百分都行:)
业余程序员 2003-08-20
  • 打赏
  • 举报
回复
100分可以吗~~
hello晨光 2003-08-20
  • 打赏
  • 举报
回复
就是说IP和端口间的空格数是不固定的。
hello晨光 2003-08-20
  • 打赏
  • 举报
回复
注明一下:

中间的空隔数不一定。有可能是一个,也有可能是两个空格。
xupiao 2003-08-20
  • 打赏
  • 举报
回复
1 建立文件對象
2 打開文件
3 如果沒有到文件最后
4 開始讀每一行存入一字符串
5 用split將學符串以" "分成數組
6 用":"連接數組的第0和第1個元數
jiejifeng 2003-08-20
  • 打赏
  • 举报
回复
agree pp4u
pp4u 2003-08-20
  • 打赏
  • 举报
回复
dim reader
reader=split(fs.readline()," ",-1)
result=reader(0) & ":" & reader(1)
pp4u 2003-08-20
  • 打赏
  • 举报
回复
先用 split()函数按空格分离出子字符串,然后连接前两个就是你想要的。

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧