以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导入链接网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83350)

--  作者:chnfo
--  发布时间:2016/4/6 22:38:00
--  [求助]导入链接网页
一个文本文件,有些网址用回车符分开,想导入进表,但直接导总是空白,双击又可显示。如何才能正常导入呢。帮助里有一节:排除不支持的数据类型。真的没办法了吗?
[此贴子已经被作者于2016/4/6 22:38:12编辑过]

--  作者:大红袍
--  发布时间:2016/4/6 22:38:00
--  
 文本、导入代码,发上来。
[此贴子已经被作者于2016/4/6 22:38:43编辑过]

--  作者:chnfo
--  发布时间:2016/4/6 23:18:00
--  
文本可以直接复制几个网页地址,用狐表论坛的地址都行,用回车符隔开,存为links.txt。

直接在命令窗口执行
dim s as string = filesys.readalltext("link文件的路经")

for each cs as string in s.split(vbcrlf)

      dim dr as datarow = datatables("a").addnew
      dr("第一列") = cs
next
导进去,除第一行外,其它行都是空白,双击单元格又可以看到

dim mm as string = tables("a").rows(3)("第一列")
output.show(mm.startswith("h"))   \'它的运行结果居然是false
[此贴子已经被作者于2016/4/6 23:29:38编辑过]

--  作者:大红袍
--  发布时间:2016/4/6 23:32:00
--  
for each cs as string in s.replace(chr(10), "").split(chr(13))