＋设为首页 ＋添加到收藏夹
代码
FileOpen(1, "c:\stock.txt", OpenMode.Output)
For a = 0 To ds3.Tables("xiazai").Rows.Count - 1
WriteLine(1, New Object() {Mid(Trim(ds3.Tables("xiazai").Rows(a).Item(0)), 1, 13)})
Next
FileClose(1)
以上代码完成后在文本文件中所有的字符串前后都多了双引号,如aa在文本框中就变成了"aa"有什么办法能把引号去掉吗
dim str as string
str=Trim(ds3.Tables("xiazai").Rows(a).Item(0)).tostring
str=str.substring(1,str.length-2)
用str代替下面这句中的Trim(ds3.Tables("xiazai").Rows(a).Item(0))
WriteLine(1, New Object() {Mid(Trim(ds3.Tables("xiazai").Rows(a).Item(0)), 1, 13)})
WriteLine()你的这种写法的构造我还真没见过，帮你估计下， 第二个参数如果是Object类型的，就可能出现那效果，因为他不能把其当做字符串处理，所以要全部显示出来，只要找到支持字符串的写法就应该没问题了
