先将数据保存到动态数组,再保存到文本文件中

Question

我做的是VB编程GIS车辆定位系统,我已经用WINSOCK接收了车辆坐标(经纬度)的值,怎样把这数据存到动态数组中,再保存到文本文件中?

Answer 1

 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

Answer 2

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 SubPrivate 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

Answer 3

试过了,但是Test还是没有数据

Answer 4

'添加 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 SubPrivate 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 SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   ReDim Preserve TmpStr$(Trec)
   Winsock1.GetData TmpStr(Trec)
   Trec = Trec + 1
End SubPrivate 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

Answer 5

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