navy 发表于 2012-10-7 12:02:33

[已解决]如何将excel单元格中的换行符替换掉并导出到txt

本帖最后由 navy 于 2012-10-9 20:53 编辑

各位高人,我在navy.xls第一个单元格写了两行内容(用Enter换的行),但是将第一个单元格的内容读取并写入到txt文件后发现有小黑块,希望高人直接修改下面的代码,拜谢了!!

#include <Excel.au3>
#include <Array.au3>
#include <File.au3>
Local $xlsfile = @ScriptDir & "\navy.xls";navy.xls 第一个单元格里有两行内容,用回车换的行
Local $oExcel = _ExcelBookOpen($xlsfile,0)

$oTxt = FileOpen("navy.txt", 10)
$sCellValue = _ExcelReadCell($oExcel,1,1);如果直接读取第一个单元格的内容并写入txt文件,txt里显示有小黑块
$sCellValue = StringRegExpReplace($sCellValue,"\r", "");请指点一下,这个地方如何将回车替换掉,谢谢
FileWrite($oTxt,$sCellValue)
FileClose($oTxt)

_ExcelBookClose($oExcel)

lpxx 发表于 2012-10-7 12:43:02

$sCellValue = StringRegExpReplace($sCellValue,"\n", "")

navy 发表于 2012-10-7 13:45:11

感谢 lpxx 的答复,问题已解决!

xgdjkk 发表于 2015-5-12 08:30:10

为什么我执行这段代码提示这个错误啊?
+>执行环境:
+>        CPU构架:        X64
+>        系统构架:        X64
+>        系统语言:        0804
+>        键盘布局:        00000804
+>        内存总量:        4022MB
+>        内存剩余:        2003MB
+>        操作系统:        WIN_81
+>        AU3版本:        3.3.9.19
+> ============================================
>运行 AU3Check (3.3.9.19)开始目录:D:\autoit3
"D:\autoit3\Include\Array.au3"(313,1) : error: 表达式错误
<
^
"D:\autoit3\Include\Array.au3"(313,14) : error: 未使用'With'访问对象方法或者属性.
<<<<<<< .mine
~~~~~~~~~~~~~^
"D:\autoit3\Include\Array.au3"(315,1) : error: 表达式错误
==
^
"D:\autoit3\Include\Array.au3"(317,1) : error: 表达式错误
>
^
"D:\autoit3\Include\Array.au3"(317,15) : error: 未使用'With'访问对象方法或者属性.
>>>>>>> .r1038
~~~~~~~~~~~~~~^
C:\Users\Administrator\Desktop\AU3脚本.au3 - 5 错误, 0 警告
!>08:27:40 AU3Check 完成. 按下 F4 跳转到下一次错误.:2
+>08:27:40 ACNWrapper 完成..
页: [1]
查看完整版本: [已解决]如何将excel单元格中的换行符替换掉并导出到txt