需要在文本中所有的汉字后加上一个空格，如何解决。文本有二万多行。
给个编程思路就行。

按顺序打开文件，同时打开一个临时文件用来写文件。
一行一行的读，
可以有预处理：把TAB值替换为一个空格，把二个空格替换为一个空格。
循环截取每个字符，使用 mid 函数截取，
然后判断，ASCII码值，大于0的为字母或空格，其他就算汉字。
然后这里你的要求没看懂，如 戒严 是1、在 戒 严 每个字后面加个空格，还是 2、在这个词后面加空格。
1的话，发现是中文字（非字母），就加一个空格进去。
2的话，发现是中文字（非字母），设标志，再继续循环，直到发现字母时，加一个空格进去。
拼好的字符串，按行写入临时文件。

已搞定，搞定之后才发现你上面发的内容。

思路：
1.全部转换为ASCII，用逗号分开
2.ASCII打散成数组，ASCII依次还原为字符，加条件加空格

VBS代码如下：

Dim i, str, ascstr,l
Const ForReading = 1, ForWriting = 2,ForAppend=8
Dim fso, f,openFile
Set fso = CreateObject("Scripting.FileSystemObject")

Set Stm =CreateObject("ADODB.Stream")
Stm.Type=2 '2-文本模式，1-二进制模式
Stm.Mode=3 '3-读写，1-读，2-写
Stm.CharSet= "gb2312" 'Unicode,utf-8,ASCII,gb2312,big5,gbk
Stm.Open
Stm.LoadFromFile "1.txt"
str = Stm.ReadText
Stm.Close
Set Stm=Nothing

For i = 1 To Len(str)
ascstr = ascstr & "," & CStr(Asc(Mid(str, i, 1)))
j = right(ascstr,len(ascstr)-1)
Next
'MsgBox j
Set f = fso.OpenTextFile("ASCII代码.txt",ForAppend, True)
f.Write j
f.Close


Set openFile=fso.OpenTextFile("ASCII代码.txt",1,True)    '1表示只读，2表示可写，8表示追加，True表示目标文件存在时是否覆盖
AsciiStr = openFile.ReadAll
openFile.Close

S=split(AsciiStr,",")  '以空格作为分隔符
For i=0 to ubound(S)
if i+1 <= ubound(S) then  '防止下标越界
if S(i)<0 and S(i+1)>=0 then  '加入空格的时机，条件
SaveFiles(Chr(S(i)))
SaveFiles(" ")
else
SaveFiles(Chr(S(i)))
end if
else
SaveFiles(Chr(S(i)))
end if
Next

Function SaveFiles(content)  '文件内容
   Const ForReading = 1, ForWriting = 2,ForAppend=8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("已处理文本.txt",ForAppend, True)
   f.Write content
End Function

Set Stm =CreateObject("ADODB.Stream")
Stm.Type=2 '2-文本模式，1-二进制模式
Stm.Mode=3 '3-读写，1-读，2-写
Stm.CharSet= "gb2312" 'Unicode,utf-8,ASCII,gb2312,big5,gbk
Stm.Open
Stm.LoadFromFile "1.txt"
str = Stm.ReadText
Stm.Close
Set Stm=Nothing
使用 ADODB.Stream 打开文件，读了全部内容就关闭。这里容易产生的BUG就是文件如果过大，会导致内存爆掉。
------------------
For i = 1 To Len(str)
ascstr = ascstr & "," & CStr(Asc(Mid(str, i, 1)))
j = right(ascstr,len(ascstr)-1)
Next
'MsgBox j
Set f = fso.OpenTextFile("ASCII代码.txt",ForAppend, True)
f.Write j
f.Close
预处理读到的内容，然后保存到一个文件，等等，为什么这步要保存？？ 这里保存文件使用的是 FSO 。另外是追加模式，如果第一次运行时生成的文件没删掉时，再运行第二次那文件里会有第二份内容啊。

Set openFile=fso.OpenTextFile("ASCII代码.txt",1,True)    '1表示只读，2表示可写，8表示追加，True表示目标文件存在时是否覆盖
AsciiStr = openFile.ReadAll
openFile.Close
重新读上一行保存的文件。等等，为什么这步要重新读，不可以直接用上步生成的字符串吗？
还有，这里读取使用的是 FSO ，为什么不用第一步的  ADODB.Stream  ，兼程序不够复杂吗？
到这步，内存里已存在 三份副本。
1、原始文件：str
2、预处理后的内容：j
3、重新读取后的内容：Asciistr

----------------
S=split(AsciiStr,",")  '以空格作为分隔符
For i=0 to ubound(S)
if i+1 <= ubound(S) then  '防止下标越界
if S(i)<0 and S(i+1)>=0 then  '加入空格的时机，条件
SaveFiles(Chr(S(i)))
SaveFiles(" ")
else
SaveFiles(Chr(S(i)))
end if
else
SaveFiles(Chr(S(i)))
end if
Next
处理，然后每处理一个字符，就直接写入文件。
每次写一个字符时，就会触发一次写盘操作，极大的影响效率和磁盘的寿命，如果是 固态硬盘的话，按你文件字符数进行磨损块次数。

为什么不直接在上一次直接得到ascii数组
只需要几句代码

redim S(len(str)           '重定义数组大小
For i = 1 To Len(str)
    s(i)=Asc(Mid(str, i, 1))      '保存ASCII码
Next

=====================
总结：
1、程序是拼凑起来的。不同部分甚至使用了不同的组件。
2、对程序的优化没任何经验。程序优化有二个方向，内存优化和速度优化。
   对于处理文件不能确定大小时，有可能出现超大文件时，考虑的是内存优化，这种情况下是读文件的部分容进行进行处理的。  
   对于处理文件能确定不会超大时，这时考虑的是速度优化，文件就是一次性读入内容。
   根据你的代码能正常运行，说明你文件不会超大，可以使用速度优化，按行处理好了，为啥硬要分解成每一个字符来处理呢，拖延运行速度。

[此贴子已经被作者于2021-7-27 13:41编辑过]

'这二个文件名我测试用的
Const FileName1 = "D:\86_1.txt"             '原始文件名
Const FileName2 = "D:\86_2.txt"             '目标文件名

Dim s1 As String
Dim f() As String
Dim i As Long, j As Long                    '两个循环变量
Dim k1 As Integer, k2 As Integer            '两个AscII值临时变量

'-------读所有内容---------
Open FileName1 For Binary Access Read As #1
    s1 = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

'--------按行分解--------
f = Split(s1, vbCrLf)
s1 = ""                                     '释放字符串内存

'--------直接处理，无预处理--------
For i = 0 To UBound(f)
    If Len(f(i)) > 0 Then                   '空行直接跳
        k1 = Asc(Left(f(i), 1))             '第一个字符的Asc值
        For j = 1 To Len(f(i)) - 1          '循环取所有的字符
            k2 = Asc(Mid(f(i), j + 1, 1))   '后面一个字符的值,k1前一个的值
            
            If k1 < 0 And k2 > 0 Then       '判断
                If k2 <> 32 Then            '如果k2不为空格，则加上空格。是空格的不再加上空格
                    f(i) = Left(f(i), j) & " " & Mid(f(i), j + 1)   '在字符串中间插入一个空格
                    Exit For                '一行只加一个空格，处理完本行结束
                End If
            End If
            k1 = k2                         '如果不符合条件，把后一个字符值给k1，按循环，k2将又是后一个字符
        Next j
    End If
Next i

s1 = Join(f, vbCrLf)                        '拼接字符串，分隔符仍然是回车换行符
 
Erase f                                     '释放数组内存
 
Open FileName2 For Binary Access Write As #1
    Put #1, 1, s1                           '一次性写入文件
Close #1

那么请问如何区分 ANSI UTF8 Unicode编码的汉字？ 比如UTF8有3字节、4字节的汉字，并且编码的字节里有小于0的，也有大于0的。

用正则 试试

Private Sub Command1_Click()
    Dim Source  As String, Dest      As String
    Dim RE      As New RegExp
    Dim MColl   As MatchCollection
    
    Source = "工a aaaa" & vbCrLf & "式aa aad" & vbCrLf & "黄花菜aaae"
    
    With RE
        .Global = True
'        .Pattern = "([\u4e00-\u9fa5])(\w)"     '匹配 汉字与非汉字
        .Pattern = "([\u4e00-\u9fa5])"          '匹配 每个汉字
        
        Set MColl = .Execute(Source)
        
'        Dest = .Replace(Source, "$1 $2")   '汉字与非汉字之间，加空格
        Dest = .Replace(Source, "$1 ")      '每个汉字之间，加空格
    End With
    
    Set RE = Nothing
End Sub

算了，就这样了。

Const ForReading = 1, ForWriting = 2,ForAppend=8
Set fso = CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("1.txt",1,True)  
str = openFile.ReadAll
'MsgBox str
openFile.Close

For i = 1 To Len(str)
ascstr = ascstr & "," & CStr(Asc(Mid(str, i, 1)))
j = right(ascstr,len(ascstr)-1)
Next
'MsgBox j
Set f = fso.OpenTextFile("ASCII代码.txt",2, True)
f.Write j
f.Close


Set openFile=fso.OpenTextFile("ASCII代码.txt",1,True)  
AsciiStr = openFile.ReadAll
openFile.Close

S=split(AsciiStr,",")  '以空格作为分隔符
For i=0 to ubound(S)
if i+1 <= ubound(S) then  '防止下标越界
if S(i)<0 and S(i+1)>=0 then  '加入空格的时机，条件
SaveFiles(Chr(S(i)))
SaveFiles(" ")
else
SaveFiles(Chr(S(i)))
end if
else
SaveFiles(Chr(S(i)))
end if
Next

Function SaveFiles(content)  '文件内容
   Const ForReading = 1, ForWriting = 2,ForAppend=8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("已处理文本.txt",ForAppend, True)
   f.Write content
End Function

代码有Bug，汉字与非汉字之间，加空格 这一句

版主，这种代码格式是什么软件生成的，还是自己手敲出来刻意弄成这样的格式的……像For ....nxt,IF语句