扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
给你一个VB2010读写文件的例子吧
成都创新互联是一家专业提供湖口企业网站建设,专注与成都网站制作、网站建设、外贸网站建设、H5响应式网站、小程序制作等业务。10年已为湖口众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
Dim name As String = ""
Dim age As Integer
name = InputBox("请输入姓名")
age = InputBox("请输入年龄")
FileOpen(1, "d:\信息.txt", OpenMode.Append)
WriteLine(1, name, age)
FileClose(1)
FileOpen(1, "d:\信息.txt", OpenMode.Input)
Dim h As String
Dim j As String
Dim f As String
f = ""
h = ""
j = ""
While EOF(1) = False
f = LineInput(1) vbCrLf f
End While
FileClose(1)
MsgBox("姓名" " " "年龄" vbCrLf f)
定义一个表对象，定义一个连接对象，定义一个连接字符串变量；
然后定义一个查询字符串变量，你对照着例子，拼出来一个连接对象；
打开连接，执行查询并填充结果到表对象。
然后，按照表里面的顺序，一行一行的读取每一列的值。
请照着例子学。
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定
大概就这样，你自己试试吧
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网