Question

VB 编一个批处理程序，把文件夹下TXT里数据之间用1个逗号替代。

这是处理前

处理后
有vb代码吗，谢谢。我是新手。

最后代码，和我能运行的工程（需要加载什么的说明）能给我吗，我在学习中，谢谢！





Answer 1

你这样做，用替换函数从最长空格替换，每次递减，比如，最长的连续空格是10个，第一次就将10个空格替换为1个空格，第二次就替换9个空格为1个空格，直到将两个字符串替换为1个空格后，再将最后那个空格用，号替换就行了。
如果文档中有，的话，为了区分开，可以先将它替换为其它符号，比如中文的逗号

Answer 2

Private Sub Command1_Click()
    Dim strA As String, strPath As String
    strPath = App.Path & "\"
    
    Dim fs As Object, f As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.Getfolder(strPath)
    Dim myFile As Object, FF As Object, n As Integer
    
    For Each myFile In f.Files
        If myFile.Name Like "*.txt" Then
            Set FF = fs.opentextfile(myFile, 1)
            strA = FF.readall
            For n = 1 To 10
                strA = Replace(strA, "  ", " ")
            Next
        End If
        strA = Replace(strA, " ", ",")
        FF.Close
        
        Set FF = fs.opentextfile(myFile, 2)
        FF.write strA
        FF.Close
    Next
End Sub

可下载附件进行测试！！实际使用时，只需将exe可执行文件与需要处理得文件放在同一目录下即可！

追问

上面分别是打开工程，复制代码运行，运行EXE时的错误提示。还有。我需要的是把TXT整个文件里的数据分别用逗号隔开。

追答

抱歉，我的问题，条件语句的end if放错了位置，导致可执行文件均被修改。

请下载新的附件测试！

追问

能不能处理后数据左边没逗号

追答

那代码要做一些调整，稍等！

请下载最新的附件测试！如果需要提供代码，请追问！

追问

最后代码，和我能运行的工程（需要加载什么的说明）能给我吗，我在学习中，谢谢！

追答

不好意思，我以为你只需要最终处理结果就够了的。

已经在主要代码后面添加了注释，请下载附件查收！

追问

http://pan.baidu.com/s/1pJLMOrD

麻烦你了

这个TXT里的数据为什么不给处理！

追答

For n = 1 To 10     '处理连续空格，循环10次，可以处理1024个连续空格也就是2的10次方个空格。
    strA = Replace(strA, "  ", " ")
Next
strA = Replace(strA, Chr(9), " ")    '------------处理特殊空格
arr = Split(strA, vbCrLf)    '将处理完的文本，以回车vbcrlf为分隔符，分割成数组

中间加一行代码：“strA = Replace(strA, Chr(9), " ")    '------------处理特殊空格”，你自己会加吗？

Answer 3

文件已经做好了，非常简单实用。下载首先看说明文件。