xml文件修改的问题

smklsdas

大神们，我搞了一个修改xml的vba， 可替换修改，但搞出来的东西是乱码，而且有错执行不了
求助先选择文件后打开
修改的地方就是把tag＜j_t6_ttl＞改为＜j_s2_ttl＞，＜s_t12_ttl＞改为＜s_s1_ttl＞
最后保存
谢谢了

1. Private Sub CommandButton1_Click()
   
2.    
   
3. Dim FileName As Variant
   
4.     Dim Arr, k%
   
5.     Dim sFileName As String
   
6.     Dim sPathName As String
   
7.     Dim aFile As Variant
   
8.     Dim ws As Worksheet
   
9.     Dim fd As FileDialog
   
10.     Set ws = Worksheets("Sheet1")
    
11.     FileName = Application.GetOpenFilename("xml File (*.xml),*.xml")
    
12.    
    
13.     Open FileName For Input As #1
    
14.     Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
15.     Reset
    
16.         
    
17.     'Open ThisWorkbook.Path & "\1300_TENKEN_old.xml" For Output As #1
    
18.    
    
19.     For k = 0 To UBound(Arr)
    
20.        Arr(k) = Replace(Arr(k), "j_t6_ttll", "j_s2_ttl")
    
21.        Arr(k) = Replace(Arr(k), "s_t12_ttl", "s_s1_ttl")
    
22.        Arr(k) = Replace(Arr(k), "s_t6_ttl", "s_s2_ttl")
    
23.        Arr(k) = Replace(Arr(k), "s_s12_ttl", "s_s1_ttl")
    
24.        Arr(k) = Replace(Arr(k), "/order", "/s_order")
    
25.        Arr(k) = Replace(Arr(k), "t12_display", "s1_display")
    
26.        Arr(k) = Replace(Arr(k), "t12_fee", "s1_fee")
    
27.        Arr(k) = Replace(Arr(k), "t6_fee", "s2_fee")
    
28.        Arr(k) = Replace(Arr(k), "t12_total_fee", "s1_total_fee")
    
29.        Arr(k) = Replace(Arr(k), "t6_total_fee", "s2_total_fee")
    
30.        Arr(k) = Replace(Arr(k), "t6_total_display", "s_total_display")
    
31.        Arr(k) = Replace(Arr(k), "</s_s1_ttl4>", "</s_s1_ttl4>" & Chr(10) & "<s_s1_ttl5></s_s1_ttl5>" & Chr(10) & "<s_s1_total></s_s1_total>")
    
32.        Arr(k) = Replace(Arr(k), "</j_s1_ttl4>", "</j_s1_ttl4>" & Chr(10) & "<j_s1_ttl5></j_s1_ttl5>" & Chr(10) & "<j_s1_total></j_s1_total>")
    
33.        Arr(k) = Replace(Arr(k), "</s_s2_ttl4>", "</s_s2_ttl4>" & Chr(10) & "<s_s2_ttl5></s_s2_ttl5>" & Chr(10) & "<s_s2_total></s_s2_total>")
    
34.        Arr(k) = Replace(Arr(k), "</j_s2_ttl4>", "</j_s2_ttl4>" & Chr(10) & "<j_s2_ttl5></j_s2_ttl5>" & Chr(10) & "<j_s2_total></j_s2_total>")
    
35.        Arr(k) = Replace(Arr(k), "</s1_fee4>", "</s1_fee4>" & Chr(10) & "<s1_fee5></s1_fee5>")
    
36.        Arr(k) = Replace(Arr(k), "</s2_fee4>", "</s2_fee4>" & Chr(10) & "<s2_fee5></s2_fee5>")
    
37.        Arr(k) = Replace(Arr(k), "t12_total_display", "")
    
38.       
    
39.        Print #1, Arr(k)
    
40.     Next
    
41.     Reset
    
42.     MsgBox "Opertion done!"
    
43. End Sub
    

复制代码

smklsdas

help!!!!!!!!!!!!!!!!!!!!!!

YZC51

请参考
http://club.excelhome.net/thread-803566-1-1.html