先将数据保存到动态数组,再保存到文本文件中
我做的是VB编程GIS车辆定位系统,我已经用WINSOCK接收了车辆坐标(经纬度)的值,怎样把这数据存到动态数组中,再保存到文本文件中? --------------------编程问答-------------------- dim a(21)Open "d:aa.txt" For Output As #1
With Flex
k = .Rows
For i = 0 To 20
DoEvents
Print #1, a(i)
Next i
End With
Close #FileNum
--------------------编程问答-------------------- Dim tmpstr$(), Trec&, i&
Private Sub Winsock1_DataarriVal(ByVal bytesTotal As Long)
ReDim Preserve tmpstr$(Trec)
Winsock1.GetData tmpstr$(Trec), vbString
Trec = Trec + 1
End Sub
Private Sub Command1_Click()
Open "c:\test.txt" For Output As #1
For i = 0 To Trec - 1
Print tmpstr(i)
Print #1, tmpstr(i)
Next i
Close #1
End Sub
--------------------编程问答-------------------- 试过了,但是Test还是没有数据 --------------------编程问答-------------------- '添加 Command1 RichTextBox1 WinSock1
'这个代码在我 2000的系统下完全正常, 如果你还不能用, 那么可能你要检查一下你的WinSock是否被病毒等因素破坏了.
Dim Trec&, i&, jj&, StrCommand$, StrWebPage$, TmpStr$()
Private Sub Command1_Click()
Trec = 0
Winsock1.RemoteHost = "cbm666.com"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
StrWebPage = "http://cbm666.com/eng1000.txt"
StrCommand = "GET " + StrWebPage + " HTTP/1.0" + vbCrLf
StrCommand = StrCommand + "Accept: */*" + vbCrLf
StrCommand = StrCommand + "Accept: text/html" + vbCrLf
StrCommand = StrCommand + vbCrLf
Winsock1.SendData StrCommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
ReDim Preserve TmpStr$(Trec)
Winsock1.GetData TmpStr(Trec)
Trec = Trec + 1
End Sub
Private Sub Winsock1_Close()
For i = 0 To Trec - 1
aa = aa & TmpStr(i) & vbCrLf
Next i
If InStr(aa, "200 OK") = 0 Then MsgBox "下载失败": Exit Sub
'jj = InStr(aa, "Connection: close")
'If jj > 0 Then RichTextBox1.Text = Trim(Mid(aa, jj + 17))
RichTextBox1.Text = aa
RichTextBox1.SaveFile "c:\test.txt", 1
End Sub
--------------------编程问答-------------------- Dim Trec&, i&, jj&, StrCommand$, StrWebPage$,aa$, TmpStr$()
Private Sub Command1_Click()
Trec = 0
Winsock1.RemoteHost = "cbm666.com"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
StrWebPage = "http://cbm666.com/eng1000.txt"
StrCommand = "GET " + StrWebPage + " HTTP/1.0" + vbCrLf
StrCommand = StrCommand + "Accept: */*" + vbCrLf
StrCommand = StrCommand + "Accept: text/html" + vbCrLf
StrCommand = StrCommand + vbCrLf
Winsock1.SendData StrCommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
ReDim Preserve TmpStr$(Trec)
Winsock1.GetData TmpStr(Trec)
Trec = Trec + 1
End Sub
Private Sub Winsock1_Close()
aa=""
For i = 0 To Trec - 1
aa = aa & TmpStr(i) & vbCrLf
Next i
If InStr(aa, "200 OK") = 0 Then MsgBox "下载失败": Exit Sub
'jj = InStr(aa, "Connection: close")
'If jj > 0 Then RichTextBox1.Text = Trim(Mid(aa, jj + 17))
RichTextBox1.Text = aa
RichTextBox1.SaveFile "c:\test.txt", 1
End Sub
补充:VB , 基础类