Question

我的问题可能听起来很愚蠢，但我尝试了几种在互联网上暴露的解决方案而没有任何成功我对VBA来说是全新的。

问题： 我从txt文件中提取数据。该数据存储在String中，我需要将该值存储到Single变量中。

上下文 我使用的是Microsoft Excel 2010，代码在Microsoft Visual Basic for Applications下完成。

我尝试的解决方案： 在所有这些情况下，valueToRead等于＆＃34; 1.580000＆＃34;。

1）realAngle = CSng（valueToRead）我收到执行错误＆＃39; 13＆＃39;，输入incompatibility

2）realAngle = Single.Parse（valueToRead）编译错误，语法错误

3）realAngle = Single.Parse（valueToRead，System.Globalization.NumberFormatInfo.InvariantInfo）编译错误，语法错误

4）realAngle = Convert.ToSingle（valueToRead）执行错误＆＃39; 424＆＃39;：需要对象

我的代码如下：

Sub macro_test()
' File to read data from
Dim logFile As String
' Variable containing a line from the file
Dim textLine As String
' Variable containing a part of the line
Dim ReadValue As Variant
' Variable containing a  part of ReadValue
Dim ReadValue2 As Variant
' Desperate variable in order to be sure to have a String value
Dim valueToRead As String
' Angle value stored in the file
Dim realAngle As Single
' Number of elements separated by " | " in the lien
Dim Size As Integer

' Initialize variables
Size = 0
realAngle = 0
logFile = "FilePathAndName"

' Open the txt file
Open logFile For Input As #1

' Read until the end of the file
Do Until EOF(1)
    ' Get a line of text from the file
    Line Input #1, textLine
    ' Split the line with " | " separator
    ReadValue = Split(textLine, " | ")

    ' Count the number of elements
    Size = UBound(ReadValue) - LBound(ReadValue) + 1

    ' If the line have enough elements then it may be of interest
    If Size > 9 Then
        ' if this is the correct line thanks to a correct identificator
        If ReadValue(3) = "MyIdentificator" Then
        ' Split the line with the " = " sign
        ReadValue2 = Split(ReadValue(8), " = ")
        ' Storing the value into a String
        valueToRead = ReadValue2(1)

        realAngle = CSng(valueToRead)
        'realAngle = Single.Parse(valueToRead)
        'realAngle = Convert.ToSingle(valueToRead)
        'realAngle = Single.Parse(valueToRead, System.Globalization.NumberFormatInfo.InvariantInfo)
        End If
    End If
Loop

Close #1
End Sub

提前感谢您的帮助！

我目前正试图获得VALUE3。

Answer 1

猜测你不在美国/英国。在德国，您有,而非.作为区域设置。因此，在转换之前将其添加到字符串中：

Public Function change_commas(ByVal myValue As Variant) As String

    Dim str_temp As String

    str_temp = CStr(myValue)
    change_commas = Replace(str_temp, ",", ".")

End Function

将字符串转换为单个

1 个答案: