VBS脚本无法替换文本文件多空格等字符的问题求助

你的VBS脚本存在几个关键错误，直接导致替换逻辑完全失效，以下是问题拆解和修复方案：

核心错误点 #

1. Instr函数参数顺序颠倒
   Instr(Soll1,ThisLine) 的写法完全错误，Instr的语法是 Instr(被搜索的字符串, 要查找的子串)，你现在是在单个空格soll1里搜索整行内容，永远返回0（判定为false），导致代码一直走Else分支，根本没执行替换操作。

2. 替换逻辑未叠加
   你当前的三次writefile.write都是基于原始行ThisLine做单次替换，会把同一行内容重复输出三次，而且前一次的替换结果不会被后续替换复用，等于白做。

3. 多空格替换不彻底
   Replace(ThisLine," "," ")只能替换一次连续空格，比如4个空格会变成2个，无法彻底清理所有连续重复的空格。

修复后的完整脚本 #

set fso = CreateObject("Scripting.FileSystemObject")

soll1 = " "
soll2 = "<i>"
soll3 = "<b>"
ist1  = "  "  ' 要替换的连续两个空格
ist2  = "//"
ist3  = "**"

Set readFile  = fso.OpenTextFile("Eingabe.txt",1,false)
set writefile = fso.CreateTextFile("Ausgabe.txt",2)

While not readfile.AtEndOfStream
    ThisLine = readfile.ReadLine
    ' 初始化处理后的行内容
    processedLine = ThisLine
    
    ' 叠加执行所有替换操作
    processedLine = Replace(processedLine, ist2, soll2)
    processedLine = Replace(processedLine, ist3, soll3)
    
    ' 循环替换连续空格，直到完全清除
    Do While InStr(processedLine, ist1) > 0
        processedLine = Replace(processedLine, ist1, soll1)
    Loop
    
    ' 写入处理后的完整行（自动添加换行符）
    writefile.WriteLine processedLine
Wend

readfile.close
writefile.close

关键修改说明 #

• 移除了错误的Instr判断，直接对每一行执行替换，避免遗漏任何需要处理的内容
• 将替换操作改为叠加模式，每次替换都基于上一次的结果，保证所有替换效果都能生效
• 用Do循环彻底清理所有连续空格，确保最终文本里只有单个空格
• 使用WriteLine替代write，自动添加换行符，避免手动拼接vbCrLf的繁琐

内容的提问来源于stack exchange，提问作者Gurkenhobel