大概有5M数据文字，我想把文字拆分开来，变成2个字一行!只要汉字

qq123123

$sl = 2


$neirongxing = FileOpen("行号.ini", 0);读取指定数量.
$neirongxing_2 = FileReadLine ($neirongxing, 1)
FileClose($neirongxing)

;~ FileDelete("读取完毕.ini")行号\1.ini
$file = FileOpen("文本.txt", 0)
$hao = FileRead($file,62000000)
$hao_1 = StringStripWS ($hao, 8)  ;删除所有空格
StringStripCR ( $hao_1 );删除字符串中的所有回车( Chr(13) ). )
FileClose($file)

$text17 = StringRegExpReplace($hao_1,'[abcdefghijklmnopqrstuvwxyz0123456789]', '')
$dq = FileOpen("临时存放.txt", 10);读取指定行的字符.
FileWrite ($dq, $text17);追加数据.
FileClose($dq)

$dq = FileOpen("临时存放.txt", 0);读取指定行的字符.
$hao_ok = FileRead($dq,62000000)

$i = $neirongxing_2
While $i <= 62000000
$hao_ok2 = stringMid ($hao_ok, $i, 2)
$xie = FileOpen("处理好数据.ini", 1);把帐号组合在一起
FileWrite($xie, $hao_ok2&@CRLF) ;数据文件尾追加数据.
FileClose($xie)
ToolTip( $hao_ok2,0,682)
;~  MsgBox(0, "读取的数据:", $hao_ok2)
    $i = $i + $sl
                        $xing = FileOpen("行号.ini", 2)
                        FileWriteLine($xing, $i) ;向此前已打开的文本文件尾追加一行数据.
                        FileClose($xing)
WEnd
FileClose($dq)
TrayTip("",$text17, 5)
Sleep(2000)
Exit



上面这个自己摸索出来了，但是文字读到10万左右的时候，电脑巨卡，基本1秒才跳一次
我有一个记事本 文本.txt

里面都是文字，有，逗号，句号，分号，字母，数字……这些
我想要符号都删除点，只剩下文字，
大概有5M数据文字，我想把文字拆分开来，变成2个字一行。
小弟水平就这样了，诚心请教，有没有别的办法提升一下，或者一个语法提示一下

最后批处理，能处理吗？

qq123123

干县令，其于大达亦远矣。”“县”乃古“悬”字，高也；“令”，美也，“干”，追求。是说举着细小的钓竿钓绳，奔走于灌溉用的沟渠之间，只能钓到泥鳅之类的小鱼，而想获得大鱼可就难了。靠修饰琐屑的言论以求高名美誉，那和玄妙的大道相比，可就差得远了。春秋战国时，学派林立，百家争鸣，许多学人策士为说服王侯接受其思想学说，往往设譬取喻，征引史事，巧借神话，多用寓言，以便修饰言说以增强文章效果。庄子认为此皆微不足道，故谓之“小说”，即“琐屑之言，非道术所在”“浅识小道”，也就是琐屑浅薄的言论与小道理之意，正是小说之为小说的本来含义。

qq123123

我的文本内容，就和上面这个一样的！

anyky123

?>
{:face (382):}

3mile

fileread说明：
若给定的是文件名而不是文件句柄,那么该文件将在函数执行期间被打开并关闭,如果打开的文件较大则会比使用文件句柄要慢得多.

local $str,$hfile,$read
$hfile=FileOpen("a.txt");这里给文件名
$size=FileGetSize('a.txt')
For $i =0 To $size Step 2
        FileSetPos($hfile,$i,0)
        $read=FileRead($hfile,4);中文用4,英文用2
        $str&=$read&@CRLF
Next
FileClose($hfile)
FileWrite("b.txt",$str);输出的文件名

afan

fileread说明：
若给定的是文件名而不是文件句柄,那么该文件将在函数执行期间被打开并关闭,如果打开的文件 ...
3mile 发表于 2010-9-20 09:42

这种方式估计会造成部分乱码~

liufenglg

fileread说明：
若给定的是文件名而不是文件句柄,那么该文件将在函数执行期间被打开并关闭,如果打开的文件较大则会比使用文件句柄要慢得多.
配置低也慢的

qq123123

$text1 = StringRegExpReplace($hao_1,"[︱︶[]＾}″︽﹃』〔〕︺＜＞÷∝≮■△◎┌┏┐┑└┕┖┗┘┙┛├┝┞┟┡┢┣┤┦┧┨┩┪┫┬┭┮┯┰┱┲┳┴┵┶┷┺┿╂╆╈╊￠￡§‥♂Ⅰ②Ⅱ③ⅲ４⒌Ⅵ７⑺⒎]", '')
$text2 = StringRegExpReplace($text1,"[Ⅶ⑻⒏９⑼⒐⑩⑽⒑⑾⒒⑿⒓⒀⒔⒁⒕⒂⒖⒃⒗деёиОПРСТУФХЦЧШЩЪЫЬЭЮЯグぐヶケけ⒄⒘⒅⒙⒆⒚⒛ＡɑＢ℃ＤＥêＦＧɡＬńňｏＲＵúùüūǜǚǖｘＺενΤΥабг]", '')
$text3 = StringRegExpReplace($text2,"[ゲげコこゴごサさザざシしジじスたダだチちヂぢッっツつヅづテてデでトとドどナなニにヌぬすズずセせゼぜソそゾぞタ]", '')
$text4 = StringRegExpReplace($text3,"[ネねノのハはㄖㄗㄚㄥバばパぱヒミみムメモュらリレヲをㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄓㄔㄕひビびピぴフふブぶプぷヘベペぺホ]", '')
$text5 = StringRegExpReplace($text4,"[ＨǔθξδκλπＷζＮαＶＰＴＳ〗ＭòＯ〈≡≈“￣`：＊︵@*;&!--―Ｐò┚ǘㄒ?Φμ⌒〗Φ艹┥ＯＶ?|:．～！，》—。《“”、－…ＱＫlＪＩ⌒＝┒⊥┍≈≌∽∩≡∮∈∧∥±√∏”∑∪×】》『【《〖'〉〈’＠±‘?_？；：：θ！]", '')
$text6 = StringRegExpReplace($text5,"[вΧΩΦψδθκμσρ?６⑹⑷⑵⒈⒋⑴υ⑶⒉τ２λ⑸⒊ΡπξοιΣα⒍ηζγβＷ^」＠＠?》？；：┠┓┎⊥≡≈∽∷∶∮∫∪∩〈〉〈∨《∧∥〉∠∈×＝±⊙〗〖「『【」》《〉：ｕＸｃ（-）=,./~()ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzｔＣＯ0123456789０１３５６８]", '')



象这些字符，过滤不掉，郁闷了，有什么办法处理一下吗？

qq123123

$file = FileOpen("文本.txt", 0)
$hao = FileRead($file,62000000)
$hao_1 = StringStripWS ($hao, 8)  ;删除所有空格
StringStripCR ( $hao_1 );删除字符串中的所有回车( Chr(13) ). )
FileClose($file)


$text1 = StringRegExpReplace($hao_1,"[︱︶[]＾}″︽﹃』〔〕︺＜＞÷∝≮■△◎┌┏┐┑└┕┖┗┘┙┛├┝┞┟┡┢┣┤┦┧┨┩┪┫┬┭┮┯┰┱┲┳┴┵┶┷┺┿╂╆╈╊￠￡§‥♂Ⅰ②Ⅱ③ⅲ４⒌Ⅵ７⑺⒎]", '')
$text2 = StringRegExpReplace($text1,"[Ⅶ⑻⒏９⑼⒐⑩⑽⒑⑾⒒⑿⒓⒀⒔⒁⒕⒂⒖⒃⒗деёиОПРСТУФХЦЧШЩЪЫЬЭЮЯグぐヶケけ⒄⒘⒅⒙⒆⒚⒛ＡɑＢ℃ＤＥêＦＧɡＬńňｏＲＵúùüūǜǚǖｘＺενΤΥабг]", '')
$text3 = StringRegExpReplace($text2,"[ゲげコこゴごサさザざシしジじスたダだチちヂぢッっツつヅづテてデでトとドどナなニにヌぬすズずセせゼぜソそゾぞタ]", '')
$text4 = StringRegExpReplace($text3,"[ネねノのハはㄖㄗㄚㄥバばパぱヒミみムメモュらリレヲをㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄓㄔㄕひビびピぴフふブぶプぷヘベペぺホ]", '')
$text5 = StringRegExpReplace($text4,"[ＨǔθξδκλπＷζＮαＶＰＴＳ〗ＭòＯ〈≡≈“￣`：＊︵@*;&!--―Ｐò┚ǘㄒ?Φμ⌒〗Φ艹┥ＯＶ?|:．～！，》—。《“”、－…ＱＫlＪＩ⌒＝┒⊥┍≈≌∽∩≡∮∈∧∥±√∏”∑∪×】》『【《〖'〉〈’＠±‘?_？；：：θ！]", '')
$text6 = StringRegExpReplace($text5,"[вΧΩΦψδθκμσρ?６⑹⑷⑵⒈⒋⑴υ⑶⒉τ２λ⑸⒊ΡπξοιΣα⒍ηζγβＷ^」＠＠?》？；：┠┓┎⊥≡≈∽∷∶∮∫∪∩〈〉〈∨《∧∥〉∠∈×＝±⊙〗〖「『【」》《〉：ｕＸｃ（-）=,./~()ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzｔＣＯ0123456789０１３５６８]", '')
;~ '[，"》—？。《“”、－…：СX（-）=,./~()ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789]', '')
$file = FileOpen("临时存放.txt", 2)
FileWrite($file, $text6)
FileClose($file)

afan

论坛有匹配汉字的方法，多搜索下
如果你有完整的测试附件，可能早解决了

而且你对给予帮助的人连一句话都没有，更不用说谢了。继续自言自语吧。

qq123123

回复 10# afan


原来得到了别人的帮助，就一定要在百忙之中抽时间出来说“谢谢”

晚一些都不行！
特别是在问题没有完全处理好，还在努力学习中……

原来帮助了别人，就一定要得到别人对你说“谢谢”


对所有热爱回答问题，和帮助新手的AU3 迷

郑重说声“谢谢”

lanfengc

汉字在计算机内是用内码表示的。 具体范围是B0A0-----F7FF  你试试通过ASC函数判断ASC值的范围试试。

3mile

回复 12# lanfengc
asc函数返回值应该是UNICODE码。
_stringtohex函数返回的才是内码吧。

转角遇到囜

可以使用匹配汉字的方法！

jiangllllp

回复 12# lanfengc


    感觉这种思路可取