怎么删除掉记事本中的所有 数字和字母

9922250

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 <> ""  And  StringLen($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

maoshibi021

把记事本里的字符串提取出来赋值给变量，然后删除其中的字母数字后复写覆盖它

ajian55

删除字符: 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 <> ""  And  StringLen($line)  > 3 Then 
                FileWriteLine ( "转换完成.txt",StringRegExpReplace ( $line, "\w", "" ))

        EndIf
Next

FileClose($file)

user3000

回复 3# ajian55


    用正则, 怎么还一行一行的处理? 应该全文一次性处理才对

ajian55

回复 4# user3000


    我很懒  懒得给他重写  依他的模版  稍微改两行

   你比我还懒   一个代码都不上

user3000

回复 5# ajian55


    没办法,现在家里只有一台用了5年的老笔记本, 好几个键都给儿子抠坏了,打字太不方便了.
现在我是'多看少回帖'了.

qq309266378

菜鸟路过顶贴，学习了。