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

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

多谢版主解答,不过我是要把等号左边的删除掉,你给我的是这样的
|15
|King Cutout
|Jester Head
|Lightning Cloud
|Magician Lizard
|Moon
|Paintbrush
|Silent Parrot
|Pirate Hat
|Puppet
|Rabbit
|Sword Cabinet
|Hat with Flowers
|Hat with Hand
|Bell
|Sun above Hat

我还要要继续删除的样子,我只要等号右边不重复的字符串就行了 ,还一个怎么另外保存到新的txt里面再复制保存像是不够自动化.再一个能不能解释下 '=([^\r]+)'   这个看不明白,是等号前面的字符删除掉吗?要是用-是不是删除等号后面的

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
        FileWriteLine("text1.txt",$aNewArray[$i])
Next
MsgBox(0,0,"处理完成")

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

多谢两位的指导.

查看完整版本: [以解决]请问如何删除指定字符前面的字符串,并删除重复的字符串?