- Dim FSO, vbStr, Arr, Str, Txt
- Set FSO = CreateObject("Scripting.FileSystemObject")
- vbStr = FSO.OpenTextFile("1.txt").ReadAll()
- Arr = Split(vbStr, vbCrLf)
- For Each Str In Arr
- Txt = Split(Str, ":")
- FSO.OpenTextFile("2.txt", 8, True).WriteLine Txt(1)
- Next
- Set FSO = Nothing
- MsgBox "提取完成",,"ArdentMan友情提示"
复制代码
|