易语言怎么将TXT文本导入高级表格中

.版本 2

.支持库 eGrid

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.局部变量 行成员, 文本型, , "0"

.局部变量 数据, 文本型

.局部变量 列数据, 文本型, , "0"

.局部变量 n1, 整数型

.局部变量 n2, 整数型

.局部变量 n3, 整数型

.局部变量 列数, 整数型

.局部变量 行数, 整数型

数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/1.txt”))

行成员 ＝ 分割文本 (数据, “|”, )

列数据 ＝ 分割文本 (数据, #换行符, )

列数 ＝ 取数组成员数 (行成员) ÷ 取数组成员数 (列数据)

行数 ＝ 取数组成员数 (列数据)

.计次循环首 (行数, )

  高级表格1.插入行 (, )

.计次循环尾 ()

.计次循环首 (列数, )

  高级表格1.插入列 (, )

.计次循环尾 ()

.计次循环首 (行数, )

  n3 ＝ n3 ＋ 1

  .计次循环首 (列数, )

      n2 ＝ n2 ＋ 1

      n1 ＝ n1 ＋ 1

      高级表格1.置数据 (n3, n2, #表格常量.文本型, 行成员 [n1])

  .计次循环尾 ()

  .如果 (n2 ≥ 列数)

      n2 ＝ 0

  .否则

  .如果结束

.计次循环尾 ()

数据导入xls：可以利用组件“外部数据库”，做一个按钮，在点击按钮子程序中输入下面的代码（提示：以下方法看似复杂，只需要整一遍，写成子程序，以后所有程序均可直接调用）:

外部数据库1.打开()

调试输出(外部数据库.取连接文本())

1、运行程序，点击按钮；2、选择数据源，在DNS名称位置选择“新建”；3、创建的新的数据源，选择Microsoft Excel Driver(*.xls,*.xlsx,*.xlsb)，点击下一步；4、点击浏览—桌面，文件名写123，点击保存，点击下一步，点击完成；5、在ODBC Microsoft Excel安装窗口点击“选择工作簿”，找到你想打开的excel表，点击确定；6、在ODBC Microsoft Excel安装窗口点击确定；7、在选择数据源窗口点击确定，剩下全部点击确定；8、你会发现会出现调试文本，是“ODBCDBQ=C:\USERS\ADMINISTRATOR\DESKTOP\户籍地关联.xlsxDefaultDir=C:\USERS\ADMINISTRATOR\DESKTOPDriver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}DriverId=1046FIL=excel 12.0FILEDSN=C:\Users\Administrator\Desktop\123.dsnMaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=1SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”

这就是以数据库方式连接excel的方法，这个文本就是连接使用的信息，我已经将上述文本写成了子程序，直接写入参数excel文件路径即可连接，写入方式需要用sql语言（外部数据库1.执行(sql插入语句)）：

.版本 2

.子程序 连接Excel, 逻辑型

.参数 excel路径, 文本型

.判断开始 (外部数据库_Excel.打开 (“ODBCDBQ=” ＋ excel路径 ＋ “DefaultDir=” ＋ 取文本左边 (excel路径, 倒找文本 (excel路径, “\”, , 假)) ＋ “Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}DriverId=1046FIL=excel 12.0MaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=0SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”, , ) ＝ 假)

返回 (假)

.默认

返回 (真)

---