Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myStr As String
Dim mystream As System.IO.Stream
OpenFileDialog1.Filter = "All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
mystream = OpenFileDialog1.OpenFile()
If Not (mystream Is Nothing) Then
myStr = IO.File.ReadAllText(OpenFileDialog1.FileName)
mystream.Close()
TextBox1.Text = "经度" & vbCrLf
TextBox2.Text = "纬度" & vbCrLf
Dim arrStr() As String
arrStr = Split(myStr, vbCrLf)
For i As Integer = 0 To UBound(arrStr)
If arrStr(i) <> "" Then
Dim tmp() As String, tmp1() As String
tmp = Split(arrStr(i), ";")
tmp1 = Split(tmp(1), ",")
TextBox1.Text = TextBox1.Text & tmp1(2) & vbCrLf
TextBox2.Text = TextBox2.Text & tmp1(3) & vbCrLf
End If
Next
End If
End If