^凭证号 ^本方账号 ^对方帐号 ^交易时间'借/贷 ~借方发生额 ~贷方发生额 ^对方行号^摘要 ^用途^对方单位名称
^0^3602041719224900220^3602041719224900344^2003-01-03 17:48:43'借~30.00~ ^^工资及退休金^^企业网上银行测试帐户(南方)
^0^3602041719224900220^3602041719224900344^2003-01-03 17:45:34'借~30.00~ ^^工资及退休金^^企业网上银行测试帐户(南方)
^0^3602041719224900220^3602041719224900344^2003-01-06 10:02:37'贷~ ~60.00^^自动网络结算^^企业网上银行测试帐户(南方)
我现在要把这样的格式转换到EXCEL表中?
分隔符不同,
^0^3602041719224900220^3602041719224900344^2003-01-03 17:48:43'借~30.00~ ^^工资及退休金^^企业网上银行测试帐户(南方)
^0^3602041719224900220^3602041719224900344^2003-01-03 17:45:34'借~30.00~ ^^工资及退休金^^企业网上银行测试帐户(南方)
^0^3602041719224900220^3602041719224900344^2003-01-06 10:02:37'贷~ ~60.00^^自动网络结算^^企业网上银行测试帐户(南方)
我现在要把这样的格式转换到EXCEL表中?
分隔符不同,
我忘记了分,
如果解决了,
我可以另开给100,只能给这么多!!!
请教各位高手,
把上面的.txt文件转换成.csv逗号文件,
1. 用StringReplace把'符号和~符号全部变成^符号
2. 再用StringReplace把^符号全部变成#10或#13#10(能换行就可以)
3. 转换好的整个字符串放到一个String变量内(比如MyStr)
4. 创建一个TStringList对象(比如MyList)
5. MyList.Text := MyStr(因为换行的作用,所以每一个值会独占一行)
6. 用For i := 0 To MyList.Count - 1 Do遍历MyList把每个MyList.Lines.Strings[i]两边的空格用Trim删去,以防止INSERT的时候出现问题
7. 现在你的MyList的每一个MyList.Lines.Strings[i]内有一个独立的值了,可以开始你的INSERT工作了(比如INSERT tablename VALUES ('''' + MyList.Lines.String[0] + ''',''' + '''' + MyList.Lines.String[1] + ''',''' + MyList.Lines.String[0] ....)具体语法自己写吧)
8. 读取下一行回到1.步继续,知道文件读完注意:最好每个字段在INSERT之前用StringReplace把'符号变成''符号,以防'符号的干扰,让我想到了SQL INJECT入侵,呵呵