找回密码
 加入
搜索
查看: 2228|回复: 4

[系统综合] 如何用正则提取这里面的名称与代码(已解决)

[复制链接]
发表于 2011-9-2 15:39:15 | 显示全部楼层 |阅读模式
本帖最后由 紫色风林 于 2011-9-2 16:19 编辑

搞得头晕,还是请老师们帮忙吧。

   这里有一个TXT文件,如何去掉保险,电力,电器等这些分类,并修改里面的格式

如:
SH601318 中国平安
SH601601 中国太保
SH601628 中国人寿
改成
中国平安=601318
中国太保=601601
中国人寿=601628

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2011-9-2 15:40:54 | 显示全部楼层
在线等了,有路过的老师请留步
发表于 2011-9-2 16:05:49 | 显示全部楼层
;\w{2}\d{6}\h.*

#include <array.au3>
$File_arr=StringRegExp(FileRead("板块.txt"),'\w{2}(\d{6})\h(.*?)\v',3)
Local $str
For $i=0 To UBound($File_arr)-1 Step 2
        $str&=$File_arr[$i+1]&"="&$File_arr[$i]&@CRLF
Next

FileWrite("out.txt",$str)

评分

参与人数 1金钱 +30 贡献 +5 收起 理由
紫色风林 + 30 + 5 这么快啊,谢了

查看全部评分

 楼主| 发表于 2011-9-2 16:14:04 | 显示全部楼层
太好了,这么快,先谢再试
 楼主| 发表于 2011-9-2 16:18:16 | 显示全部楼层
谢谢,正是我要的,看起来那么复杂没想到就这么几句代码搞定了,可惜我没看懂
谢谢老师。。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-22 05:02 , Processed in 0.075800 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表