vb.net - 如何从 vb.net 中的文本文件中只读取数字

Question

大家好，主题显示我想在 VB.net 中做一个仅从 *.txt 文件中获取数字的脚本

例子：

文本文件：asd4lkj5fdl jklj235

结果：45235

我在谷歌做了一项研究，但一无所获，我确实在这里看到了答案，但只有在 C 中我知道理论上它需要是这样的：阅读每个 char 循环询问它是否是整数，将其添加到新字符串如果不继续下一个字符，请执行此操作直到流结束

感谢您的帮助！

Answer 1

尝试正则表达式，不包括从文件中读取文本的代码

Dim rgx As New Regex("[^\d]")
Dim result as String = rgx.Replace("asd4lkj5fdl jklj235", "")

Answer 2

Public Sub Test()

    Dim contents As String = File.ReadAllText("C:\\temp\\text.txt")
    Dim digits As New String(contents.Where(Function(c) Char.IsDigit(c)).ToArray())
    MessageBox.Show(digits)

End Sub

Answer 3

1. 将文件读入字符串

2. 循环检查每个字符是否为数字。

   Dim strTextFromFile As String = IO.File.ReadAllText("C:\filename.txt")
   
   Dim strResults As String = String.Empty
   
   For Each c As Char In strTextFromFile
   
       If IsNumeric(c) Then
   
           strResults += c
   
       End If
   
   Next
   
   MsgBox(strResults)