如何从超级终端获取文本数据并存储到excel文件或访问数据库？

问题描述：

我不是Visual Basic编码的专家，我需要将来自超级终端的数据存储到一些文件中。

为此我需要API，它是从超级终端读取数据并存储在某处的文件。

对我的任何帮助都不胜感激。

谢谢！

Hi, I am not expert in Visual Basic coding and I need to store data from hyper terminal into some files.
For that I need API which is read data from hyper terminal and store somewhere in file.

Any help for me can be appreciated.
Thanks!

答

您好

按照这些代码，您可以打开端口并从超级终端读取数据：

Hi

Follow of these code you can open port and read data from Hyper Terminal:

Option Explicit
Private Buffer As String

Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

        If MSComm1.PortOpen Then
            MSComm1.RThreshold = 1
            MSComm1.InputLen = 1
            MSComm1.CommPort = 1
            If Not MSComm1.PortOpen Then 
	        MSComm1.PortOpen = True
            Else
                MsgBox "Warrning!:fail to open port."
            End If
        End If
End Sub

Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
    Case comEvReceive
        Buffer = MSComm1.Input
        MyParser
    End Select
End Sub

Private Sub MyParser()
    Do While Len(Buffer) <> 0
        Text1.Text = Text1.Text & ""
        IF MSComm1.InBufferCount > 0 Then 
            Buffer = Buffer & MSComm1.Input
        End IF
    Loop
End Sub

另外你可以使用这个链接 http://msdn.microsoft.com/en-us/library/aa168292(v = office.11）.aspx [ ^ ]用于从Excel文件中写入数据，您可以下载Mscomm的示例链接 http://www.planet-source-code.com /vb/scripts/ShowCode.asp?txtCodeId=7585&lngWId=1 [ ^ ];）

最好的问候。

Additionally you can use this link http://msdn.microsoft.com/en-us/library/aa168292(v=office.11).aspx[^] for write your data from Excel file and you can download example of Mscomm follow of this link http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=7585&lngWId=1[^] ;)

Best Regards.

如何从超级终端获取文本数据并存储到excel文件或访问数据库？

相关推荐