我有下面的代码。
Global XL
try XL := ComObjActive("Excel.Application")
Catch {
MsgBox % "no existing Excl ojbect: Need to create one"
XL := ComObjCreate("Excel.Application")
}
XL.Visible := 1 ;1=Visible/Default 0=hidden
XL.Workbooks.OpenText("D:\TextFiles\Input.txt")
XL.Selection.TextToColumns(XL.Range("A1"), 1,1,0,0,0,0,0,1,",")
上面的代码将打开文本文件,并将选择内容分成几列,但使用常规格式,而不将双引号视为定界符。
示例文本:
“样本tex1”,“样本tex2”,“样本text3”,“样本text4”
分割文本:
我们如何使用它来拆分文本格式和双引号作为TextQualifier?