怎么删除掉记事本中的所有 数字和字母
Local $file = FileOpenDialog("请选择文件", @ScriptDir & "\", "所有文件(*.*)", 1 + 4 )If $file = -1 Then
MsgBox(4096, "错误", "不能打开文件.")
Exit
EndIf
For $i = 1 To 10000000 Step 1
Local $line = FileReadLine($file,$i)
If @error = -1 Then ExitLoop
If$line <> ""AndStringLen($line)> 3 Then
FileWriteLine ( "转换完成.txt",$line )
EndIf
Next
FileClose($file)
秋装精品英伦气质款时尚休闲修身超炫酷双面穿皮衣男
精品特色格子内饰长袖衬衣修身三角袋男士长袖衬衫男
精品超炫酷潮流风型男必备罗纹底摆连帽夹克男
精品UUK超炫酷双层兜领设计型男最爱立领百搭休闲夹克男
热卖UUK多色百搭圣品韩版修身口袋多铆钉饰长裤休闲裤/
秋冬新款时尚休闲修身戴帽两面穿情侣马甲男女AM
秋冬款新品时尚休闲流行格子学院风男装修身长袖衬衫男c
cp时尚特价最新款格子长袖衬衫c
秋冬新款潮流百搭连帽可拆卸男士短款皮衣外套男
秋冬新款时尚休闲鹿皮绒男士修身外套男西装男
秋冬新款时尚休闲斜纹仿天丝时尚修身西服男AX
秋装新款时尚休闲拼接修身长袖t恤男T
秋冬新款时尚休闲潮雅痞纯色男士长袖修身衬衫男c
秋冬新款时尚休闲复古型中山装黄色修身西装男士外套男
秋冬新款潮男必备双边口袋时尚格纹修身百搭长袖衬衫cA
秋冬新款时尚修身时尚休闲麂皮绒天丝拼接长袖衬衫男原Ac
新款跑量格子衬衫双口袋特价衬衫cP无
秋冬新款时尚休闲麂皮绒花点经典拼接男装长袖衬衫男原Ac
春秋韩版潮男必备男式修身连帽短款卫衣男士长袖外套男W
春秋最新款春秋修身短款时尚休闲运动男士卫衣外套D
秋冬新品男士外套时尚修身机车型男超帅立领皮衣外套男P 把记事本里的字符串提取出来赋值给变量，然后删除其中的字母数字后复写覆盖它 删除字符: a-z, A-Z, 0-9 以及下划线 _#Include <File.au3>
Local $file = FileOpenDialog("请选择文件", @ScriptDir & "\", "所有文件(*.*)", 1 + 4 )
If $file = -1 Then
MsgBox(4096, "错误", "不能打开文件.")
Exit
EndIf
$filelines = _FileCountLines($file)
For $i = 1 To $filelines Step 1
Local $line = FileReadLine($file,$i)
If @error = -1 Then ExitLoop
If$line <> ""AndStringLen($line)> 3 Then
FileWriteLine ( "转换完成.txt",StringRegExpReplace ( $line, "\w", "" ))
EndIf
Next
FileClose($file)
回复 3# ajian55
用正则, 怎么还一行一行的处理? 应该全文一次性处理才对 回复 4# user3000
我很懒懒得给他重写依他的模版稍微改两行
你比我还懒 一个代码都不上 回复 5# ajian55
没办法,现在家里只有一台用了5年的老笔记本, 好几个键都给儿子抠坏了,打字太不方便了.
现在我是'多看少回帖'了. 菜鸟路过顶贴，学习了。
页:
[1]