This is my vbscript to read the text file .. I want to know how to split some of the chinese characters.
In my code it prompts the Text Line by Line with chinese characters my problem is how to split the chinese characters and the open and close pharenthesis
thank you
Example
Original:
45029 * 小(xiao3) 姐(jie3) * 郑(zheng4)
45023 * 平(ping2) * 何(he2,he4)
45024 * 文(wen2) 鑫(xin1) * 阎(yan2)
45025 * 艳(yan4) * 崔(cui1)
45026 * 唐(tang2) * 建(jian4) 平(ping2)
The output I need:
45029 * Xiao * Zheng
45023 * ping2 * he he
========================
Option Explicit
'Read Text Line By Line
Dim objFSO, strTextFile, strData, strLine, arrLines
CONST ForReading = 1
'name of the text file
strTextFile = "CName.log"
'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Open the text file - strData now contains the whole file
strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
'Split the text file into lines
arrLines = Split(strData,vbCrLf)
'Step through the lines
For Each strLine in arrLines
wscript.echo strLine
Next
'Cleanup
Set objFSO = Nothing