文本拆开，变成2个字一行。（已解决）
本帖最后由 qq123123 于 2010-10-4 00:32 编辑大概有1M数据TXT文字，我想把文字拆分开来，变成2个字一行。
谢谢 3mile 给出的代码，但是代码读出来有“乱码”
可以测试下，在读出来的TXT 最后，出现乱码！
原帖如下，有附件供测试！
http://www.autoitx.com/thread-18537-1-1.html
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);输出的文件名
---------------------- 下面这里是自己修改过的！
local $str,$hfile,$read
$file = FileOpen("1.txt", 0)
$hao = FileRead($file,62000000)
$hao_1 = StringStripWS ($hao, 8);删除所有空格
FileClose($file)
$text6 = StringRegExpReplace($hao_1,"[＄「」『』【】〖〗±×÷￡¤§°；’‘-《》*、`：〔〕()（）“！”—.，…！？。,!?://ABCDEFGHIJKLMNOPQRSTUVWXYZ?abcdefghijklmnopqrstuvwxyzｔＣＯ0123456789０１３５６８]", '')
$file = FileOpen("11.txt", 2)
FileWrite($file, $text6)
FileClose($file)
$hfile=FileOpen("11.txt");这里给文件名
$size=FileGetSize("11.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("OK-1.txt",$str);输出的文件名
FileDelete("11.txt") 回复 1# qq123123
这样的效果？
#include <array.au3>
Local $fin
$str=FileRead("1.txt")
$str_array=StringSplit($str,"")
For $i=1 To $str_array-2 Step 2
$fin&=$str_array[$i]&$str_array[$i+1]&@CRLF
Next
FileWrite("2.txt",$fin&$str_array[$str_array]) 回复 2# 3mile
这样代码运行出来，就很好，没有乱码！
但是少了一个功能
比如文本内容是 1234567890
你现在读出来的结果是
12
34
56
78
90
我想要的结果是:
12
23
34
45
56
67
78
89
90
自己摸索了一下，还是改不对！
希望 3mile再帮我处理一下，谢谢！我自己有努力改过脚本，但是改不对！ 谢谢，自己处理好了，把2改成1，就行了！谢谢了！ 回复 3# qq123123
#include <array.au3>
Local $fin
$str=FileRead("1.txt")
$str_array=StringSplit($str,"")
For $i=1 To $str_array-2
$fin&=$str_array[$i]&$str_array[$i+1]&@CRLF
Next
FileWrite("2.txt",$fin&$str_array[$str_array]) {:face (427):} 呵呵，学习一下。。
页:
[1]