用split函数
成都创新互联是专业的聂拉木网站建设公司,聂拉木接单;提供网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行聂拉木网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本,如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1),全部转换自己弄个循环搞定
大概就这样,你自己试试吧
a = ""
TextBox1.Text =""
FileOpen(1, Application.StartupPath() "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
TextBox1.Text =TextBox1.Text a vbcrlf
Loop
一次性读取
a=File.ReadAllText(Application.StartupPath() "\file\t1.txt")
定义一个表对象,定义一个连接对象,定义一个连接字符串变量;
然后定义一个查询字符串变量,你对照着例子,拼出来一个连接对象;
打开连接,执行查询并填充结果到表对象。
然后,按照表里面的顺序,一行一行的读取每一列的值。
请照着例子学。
给你一个VB2010读写文件的例子吧
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)
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款