紫色风林 发表于 2011-9-2 15:39:15

如何用正则提取这里面的名称与代码(已解决)

本帖最后由 紫色风林 于 2011-9-2 16:19 编辑

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

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

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

紫色风林 发表于 2011-9-2 15:40:54

在线等了,有路过的老师请留步

3mile 发表于 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)

紫色风林 发表于 2011-9-2 16:14:04

太好了,这么快,先谢再试

紫色风林 发表于 2011-9-2 16:18:16

谢谢,正是我要的,看起来那么复杂没想到就这么几句代码搞定了,可惜我没看懂
谢谢老师。。。。
页: [1]
查看完整版本: 如何用正则提取这里面的名称与代码(已解决)