[以解决]请问如何删除指定字符前面的字符串,并删除重复的字符串?

ozh2k003 · 发表于 2010-12-7 13:35:21

本帖最后由 ozh2k003 于 2010-12-13 14:33 编辑

59=King Cutout
60=Jester Head
61=Lightning Cloud
62=Magician Lizard
63=Moon
64=Paintbrush
65=Silent Parrot
66=Pirate Hat
67=Puppet
68=Rabbit
69=Rabbit
70=Rabbit
19Done3=Sword Cabinet
20Done3=Hat with Flowers
21Done3=
22Done3=Hat with Hand
23Done3=Bell
24Done3=Sun above Hat

如上,如何把"="左边的字符串删除,并把=右边的重复字符串删除掉,谢谢

水木子 · 发表于 2010-12-7 13:59:50

本帖最后由水木子于 2010-12-7 14:01 编辑

#include <Array.au3>
$sText = FileRead('Text.txt')  ;文本存放在脚本同目录下 Text.txt 文件内
$aRe = StringRegExp($sText, '=([^\r]+)', 3)
$aNewArray = _ArrayUnique($aRe)
_ArrayDisplay($aNewArray)

ozh2k003 · 发表于 2010-12-7 15:02:31

ozh2k003 · 发表于 2010-12-7 15:41:04

自己搞了下不过还是没把重复的干掉
$sText = FileRead('Text.txt') ;文本存放在脚本同目录下 Text.txt 文件内
$aRe = StringRegExp($sText, '=([^\r]+)', 3)

For $i = 0 To UBound($aRe)- 1

FileWrite("tb.txt",$aRe[$i]&@CRLF)

Next
要怎么才能去掉重复的呢?谢谢

tryhi · 发表于 2010-12-7 16:22:59

楼主好搞笑，水木子明明已经帮你解决了还自己瞎折腾，可见楼主AU3都还没入门

tryhi · 发表于 2010-12-7 16:27:50

帮你补全吧。。。。。。

#include <Array.au3>
$sText = FileRead('Text.txt')  ;文本存放在脚本同目录下 Text.txt 文件内
$aRe = StringRegExp($sText, '=([^\r]+)', 3)
$aNewArray = _ArrayUnique($aRe)
_ArrayDisplay($aNewArray)
For $i = 1 To $aNewArray[0]
        FileWriteLine("text1.txt",$aNewArray[$i])
Next
MsgBox(0,0,"处理完成")

ozh2k003 · 发表于 2010-12-9 12:37:52

多谢两位的指导.

		自动登录	找回密码
密码			加入

[网络通信] [以解决]请问如何删除指定字符前面的字符串,并删除重复的字符串?

相关帖子