以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：关于生成文本文件的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67161)
--  作者：远航
--  发布时间：2015/4/19 15:22:00
--  求助：关于生成文本文件的问题
想把当前记录生成一定格式的文本文件如下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
--  作者：狐狸爸爸
--  发布时间：2015/4/19 15:56:00
--  

参考：

http://www.foxtable.com/help/topics/0331.htm

 

Dim r As Row = Tables("表A").Current
Dim path As String = "D:\\车辆档案\\" & r("号牌号码")
Dim v As String = "*车牌号码" & r("号牌号码")
v = v & vbcrlf & "*车主" & r("车主")
v = v & vbcrlf & "*车辆类型" & r("车辆类型")
v = v & vbcrlf & "*外廓尺寸长(mm)" & r("外廓尺寸长")  & "宽(mm)" & r("外廓尺寸宽") & "高(mm)" & r("外廓尺寸高")
v = v & vbcrlf & "*轴数" & r("轴数")
If FileSys.FileExists(path) = False Then
    filesys.CreateDirectory(path)
End If
filesys.WriteAllText(path & "\\" & r("号牌号码") & ".txt",v,False,Encoding.Default)
--  作者：远航
--  发布时间：2015/4/19 16:06:00
--  
谢谢狐爸