13518219792
For Example:
创新互联公司长期为1000多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为东源企业提供专业的成都网站设计、网站建设，东源网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
1.txt文件内容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 输入方式打开原文件 1.txt；
2 输出方式打开新文件 2.txt；
3 逐行 Line Input 从 1.txt 中读数据，Print 写入 2.txt，直至要修改的行；
4 丢弃从 1.txt中读出的要修改的行，将新内容行写入 2.txt；
5 仿照第 3 步，将其余的行从 1.txt 复制到 2.txt。
6 关闭两个文件
7 删除1.txt，将 2.txt 的文件名改为原来 1.txt 的。
是字符串转成Char数组吧。
Dim s As String = "abc"
Dim c As Char() = s.ToCharArray
假设你要分割的字符串是string1的话
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~
googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。
不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：
'搜索函数，用法Search(标头，序号)，返回数据.
Private Function Search(ByVal Section As String, ByVal Index As Integer) As String
Dim fNum%, Lines%, temp%, Str As String
ReDim Data(0)
fNum = FreeFile()
If Dir("C:\\1.txt") = "" Then Exit Function
'文件路径和文件名你自己改
Open "C:\\1.txt" For Input As #fNum
Do While Not EOF(fNum)
Lines = Lines + 1
'行数
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines 0 Then
Dim tmp() As String
For temp = 1 To UBound(Data)
tmp = Split(Data(temp), "，")
'分割
If tmp(0) = Section Then
Search = tmp(Index - 1)
'因为从0开始所以-1
Exit Function
End If
Next
End If
End Function
比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。
Public Class Form1
Dim i As Long = -1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim a() As String
i = i + 1
If i TextBox1.Lines.GetUpperBound(0) Then i = 0
a = TextBox1.Lines(i).ToString.Split(";")
TextBox2.Text = a(0)
TextBox3.Text = a(1)
End Sub
望采纳~
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定
大概就这样，你自己试试吧
