7,763
社区成员
发帖
与我相关
我的任务
分享使用vbs修改XML文件的内容？？？
我想将这个xml文件的第29行内容中的*号实现换行，即每隔20个*加一个回车，假设有10000个*，并保存，求代码啊
...全文
请发表友善的回复…
发表回复
舉杯邀明月 2018-12-08
- 打赏
- 举报
我看你这个代码也没有插入回车符号，是怎么实现换行的呢，能不能给我简单讲一下原理
[/quote]文件对象，以“文本”方式进行操作，
在执行 Obj.WriteLine( )把指定的文本内容写入文件后，会自动在后面添加“回车换行”啊。
对应的，在执行 Obj.ReadLine( )时，会从“当前位置”开始读取字符内容；
在遇到“回车换行”（或文件结束）时停止读取，把读到的内容“去掉回车换行”后返回。
曲建华 2018-12-06
- 打赏
- 举报
我看你这个代码也没有插入回车符号，是怎么实现换行的呢，能不能给我简单讲一下原理
舉杯邀明月 2018-12-05
- 打赏
- 举报
下面是VBS 代码，试试看： 
Option Explicit
Dim objFSO, objInFile, objOutFile
Dim strTemp, i, k
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInFile = objFSO.OpenTextFile("X:\xxxx\源文件.xml")
Set objOutFile = objFSO.CreateTextFile("X:\xxxx\处理后.xml")
For i = 1 To 28
objOutFile.WriteLine(objInFile.ReadLine())
Next
strTemp = objInFile.ReadLine()
k = InStr(strTemp, "*")
i = 20 + k
objOutFile.WriteLine(Left(strTemp, i - 1))
k = Len(strTemp)
While(i <= k)
objOutFile.WriteLine(Mid(strTemp, i, 20))
i = 20 + i
Wend
Do
If (objInFile.AtEndOfStream) Then Exit Do
objOutFile.WriteLine(objInFile.ReadLine())
Loop
objOutFile.Close
objInFile.Close
MsgBox "处理完成。", 64
舉杯邀明月 2018-12-05
- 打赏
- 举报
好吧，刚才注意到你要的是“VBS”代码，无视上面的代码吧。
不过，第17行到第26行的代码，是可以参考的。
（但注意：要把我写的代码中的几个 & 和 $ 去掉）
不过，第17行到第26行的代码，是可以参考的。
（但注意：要把我写的代码中的几个 & 和 $ 去掉）
舉杯邀明月 2018-12-05
- 打赏
- 举报
我说的“第3条”你就无视了？
我就假设“全是星号”吧，参考一下：
我就假设“全是星号”吧，参考一下：
Private Sub Command1_Click()
Dim arrData() As Byte
Dim arrBuff() As String
Dim strTemp As String
Dim i&, k As Long
Open "X:\xxxx\源文件.xml" For Binary As #1
k = LOF(1)
ReDim arrData(k - 1&)
Get #1, , arrData()
Close
arrBuff = Split(StrConv(arrData(), vbUnicode))
Open "X:\xxxx\处理后.xml" For Output As #1
For i = 0& To 27&
Print #1, arrBuff(i)
Next
strTemp = arrBuff(28&)
k = InStr(strTemp, "*")
i = 20& + k
Print #1, Left$(strTemp, i - 1&);
k = Len(strTemp)
While (i <= k)
Print #1, Mid$(strTemp, i, 20&);
i = 20& + i
Wend
Print #1,
For i = 29& To UBound(arrBuff())
Print #1, arrBuff(i)
Next
Close
End Sub曲建华 2018-12-05
- 打赏
- 举报
我是菜鸟，这个只在29行，不管是*号还是“点”，都可以我只是想要类似修改这种文件的操作方法。谢谢！
曲建华 2018-12-05
- 打赏
- 举报
好的，感谢，后面有问题我还会咨询你！
舉杯邀明月 2018-12-05
- 打赏
- 举报
点“结贴”，会打开一个新的网页，填好分数后，再点那个网页中的“结贴给分”。
舉杯邀明月 2018-12-05
- 打赏
- 举报
非常感谢！代码可以，但是和我想像中的不太一样，因为这第二十九行中不仅仅是“*”，其中还有其他的字符，这样结果确实不一样了。
另外怎么样才能把分给你呀，不会操作
[/quote]我开始就问了你，那一行是否“全是星号”，你又不回答！！！ （虽然我觉得这种可能比较小）
你这个帖子的“标题”右下方，或者“回复框”的右上方，都有个“结贴”的链接，
你点一下，然后在我回复的任意一层楼中，把分给我就行了。
Option Explicit
Dim objFSO, objInFile, objOutFile
Dim strTemp, i, k, p
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInFile = objFSO.OpenTextFile("X:\xxxx\源文件.xml")
Set objOutFile = objFSO.CreateTextFile("X:\xxxx\处理后.xml")
For i = 1 To 28
objOutFile.WriteLine (objInFile.ReadLine())
Next
strTemp = objInFile.ReadLine()
p = 0
Do
k = p + 1
For i = 1 To 20
p = InStr(1 + p, strTemp, "*")
If (0 = p) Then
objOutFile.WriteLine(Mid(strTemp, k))
Exit Do
End If
Next
objOutFile.WriteLine(Mid(strTemp, k, p-k +1))
If (p = Len(strTemp)) Then Exit Do
Loop
Do
If (objInFile.AtEndOfStream) Then Exit Do
objOutFile.WriteLine(objInFile.ReadLine())
Loop
objOutFile.Close
objInFile.Close
MsgBox "处理完成。", 64
曲建华 2018-12-05
- 打赏
- 举报
非常感谢！代码可以，但是和我想像中的不太一样，因为这第二十九行中不仅仅是“*”，其中还有其他的字符，这样结果确实不一样了。
另外怎么样才能把分给你呀，不会操作
舉杯邀明月 2018-12-04
- 打赏
- 举报
xlm文件也是“文本文件”，你按文本文件的操作方式处理就行了。
很简单的…………
你的第29行，那后面是“星号”吗？怎么我在图片上看到的全是“点”呢……
另外：
1. 只有这一行需要处理吗？还是说，可能存在很多个这样的行呢？
2. 它一定是“在第29行”吗？
3. 是“全是星号”，还是说间隔一些文字出现一个星号？
具体情况不同，处理的细节上会有差别的。
很简单的…………
你的第29行，那后面是“星号”吗？怎么我在图片上看到的全是“点”呢……
另外：
1. 只有这一行需要处理吗？还是说，可能存在很多个这样的行呢？
2. 它一定是“在第29行”吗？
3. 是“全是星号”，还是说间隔一些文字出现一个星号？
具体情况不同，处理的细节上会有差别的。
