VBScript读取文本文件数据类型仅输出首个元素问题求助

你的问题根源在于代码逻辑和文本结构不匹配：目标文本是单行包含多个元素，但你的代码每次循环只读取一行，并且仅处理该行拆分后的第二个元素（索引1），所以只能输出一个结果。要实现显示每行中所有元素的数据类型，我们需要调整代码逻辑：

修改后的代码 #

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set Note = FSO.OpenTextFile("C:\VB Script Trying\textdata.txt", 1) 

' 读取单行内容（因为你的目标文本是单行）
lineContent = Note.Readline()
' 拆分所有元素到数组
elements = Split(lineContent, " ")

' 遍历数组中的每个元素
For Each elem In elements
    WScript.Echo "元素: '" & elem & "' , 类型编号: " & VarType(elem) & " (" & GetTypeName(VarType(elem)) & ")"
Next

Note.Close

' 辅助函数：将VarType编号转为易读的类型名称
Function GetTypeName(typeNum)
    Select Case typeNum
        Case 0: GetTypeName = "Empty"
        Case 1: GetTypeName = "Null"
        Case 2: GetTypeName = "Integer"
        Case 3: GetTypeName = "Long"
        Case 4: GetTypeName = "Single"
        Case 5: GetTypeName = "Double"
        Case 6: GetTypeName = "Currency"
        Case 7: GetTypeName = "Date"
        Case 8: GetTypeName = "String"
        Case 9: GetTypeName = "Object"
        Case 10: GetTypeName = "Error"
        Case 11: GetTypeName = "Boolean"
        Case 12: GetTypeName = "Variant (Array)"
        Case 13: GetTypeName = "Data Object"
        Case 17: GetTypeName = "Byte"
        Case 8192: GetTypeName = "Variant (Array)"
        Case Else: GetTypeName = "Unknown Type"
    End Select
End Function

关键调整点 #

• 读取整行而非单次取单个元素：先用Readline()获取完整的一行内容，再用Split拆分成元素数组，确保能拿到所有需要处理的内容。
• 遍历所有元素：使用For Each循环遍历拆分后的数组，逐个输出每个元素的类型，覆盖所有目标内容。
• 添加类型名称映射：VBScript的VarType返回的是数字编号，添加辅助函数可以把编号转为易读的类型名称，让结果更直观。

输出示例 #

对于你的文本Hai 1.2 1000 a b c，运行代码后会输出：

元素: 'Hai' , 类型编号: 8 (String)
元素: '1.2' , 类型编号: 8 (String)
元素: '1000' , 类型编号: 8 (String)
元素: 'a' , 类型编号: 8 (String)
元素: 'b' , 类型编号: 8 (String)
元素: 'c' , 类型编号: 8 (String)

注意：从文本文件读取的内容默认都是String类型，如果需要判断内容是否可以转换为数字/日期等类型，还需要额外添加类型转换验证逻辑（比如用IsNumeric判断是否为数字）。

内容的提问来源于stack exchange，提问作者skarthik96