vb读取文本文件中数字与空格，逗号等如何区分？比如我只要数字，并给变量赋值，不区分则下标越界了

Question

vb读取文本文件中数字与空格，逗号等如何区分？比如我只要数字，并给变量赋值，不区分则下标越界了，或者是己到文件末尾了

Answer 1

我知道最笨的方法

 

 

遍历所有字符。

代码如下：

 

Private Sub Command1_Click()

    Dim CheckStr As String

    Dim StrA() As Double       '定义数组用于保存数字

    Dim TempStr As String

    Dim NumStr As String

    Dim i, j As Integer

   

   

    CheckStr = Trim(Text1.Text)

    i = 1

    j = 1

    NumStr = ""

    Do While i <= Len(CheckStr)

        TempStr = Mid(CheckStr, i, 1)     '提取一个字符

        Select Case TempStr

            Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "."     '判断是否为数字或小数点"."

                NumStr = NumStr & TempStr

                If i = Len(CheckStr) Then

                    NumStr = Trim(NumStr)

                    If Len(NumStr) > 0 Then

                        ReDim Preserve StrA(j) As Double              '重定义数组， Preserve æ„æ€æ˜¯ï¼šä¿ç•™åŽŸæœ‰æ•°ç»„的数值

                        If Right(NumStr, 1) = "." Then NumStr = Left(NumStr, Len(NumStr) - 1)   '若该小数点为全文本最后一个字符，则去除该小数点

                        StrA(j - 1) = Val(NumStr)                    '用数组保存数字

                        NumStr = ""

                        j = j + 1

                    Else

                        NumStr = ""

                    End If

                Else

                    If Left(NumStr, 1) = "." Then NumStr = ""         '若该小数点为在数字前面，则去除该小数点

                End If

            Case Else

                NumStr = Trim(NumStr)

                If Len(NumStr) > 0 Then

                    ReDim Preserve StrA(j) As Double

                    If Right(NumStr, 1) = "." Then NumStr = Left(NumStr, Len(NumStr) - 1)

                    StrA(j - 1) = Val(NumStr)

                    j = j + 1

                End If

                NumStr = ""

        End Select

        i = i + 1

    Loop

    Text2.Text = "整个文本含有 " & i - 1 & " ä¸ªå­—符，其中有：" & j - 1 & " ä¸ªæ•°å­—，分别为：" & vbCrLf

    For i = 0 To j - 2

      Text2.Text = Text2.Text & StrA(i) & vbCrLf

    Next

   

End Sub

Answer 2

私人小组Form_Load（）
“打开”C：\ 1.txt文件“，输出为1
'PRINT＃1，Text1.Text
关闭＃1
/>打开“C：\ 1.TXT”输入为＃1
做，而不是EOF（1）
线路输入＃1，温度
STR1 = STR1＆温度与vbCrLf />循环
Text1.Text = STR1
END SUB

Answer 3

私人小组Form_Load（）
“打开”C：\ 1.txt文件“，输出为1
'PRINT＃1，Text1.Text
关闭＃1
/>打开“C：\ 1.TXT”输入为＃1
做，而不是EOF（1）
线路输入＃1，温度
STR1 = STR1＆温度与vbCrLf />循环
Text1.Text = STR1
END SUB

Answer 4

你把文本的内容发出来看下