文字列から数字だけを取得したい。
これが私の文字列だと言わないように:
324ghgj123
私は手に入れたい:
324123
私が試したもの:
MsgBox(Integer.Parse("324ghgj123"))
これを試して:
Dim mytext As String = "123a123"
Dim myChars() As Char = mytext.ToCharArray()
For Each ch As Char In myChars
If Char.IsDigit(ch) Then
MessageBox.Show(ch)
End If
Next
または:
Private Shared Function Num(ByVal value As String) As Integer
Dim returnVal As String = String.Empty
Dim collection As MatchCollection = Regex.Matches(value, "\d+")
For Each m As Match In collection
returnVal += m.ToString()
Next
Return Convert.ToInt32(returnVal)
End Function
これにはRegex
を使用できます
Imports System.Text.RegularExpressions
次に、コードの一部で
Dim x As String = "123a123&*^*&^*&^*&^ a sdsdfsdf"
MsgBox(Integer.Parse(Regex.Replace(x, "[^\d]", "")))
または、文字列が文字の配列であるという事実を使用できます。
Public Function getNumeric(value As String) As String
Dim output As StringBuilder = New StringBuilder
For i = 0 To value.Length - 1
If IsNumeric(value(i)) Then
output.Append(value(i))
End If
Next
Return output.ToString()
End Function
resultString = Regex.Match(subjectString, @"\d+").Value;
その数を文字列として提供します。次に、Int32.Parse(resultString)が番号を提供します。
これらの個々の回答のいくつかを実際に組み合わせて、値0の整数、または文字列内のすべての数値を連結した整数を返す単一行ソリューションを作成できます。しかし、それがどれほど有用かはわかりません。これは、数字の文字列のみを作成する方法として始まりました。
Dim TestMe = CInt(Val(New Text.StringBuilder((From ch In "123abc123".ToCharArray Where IsNumeric(ch)).ToArray).ToString))
str="something1234text456"
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Pattern = "[^\d+]"
RegEx.IgnoreCase = True
RegEx.Global = True
numbers=RegEx.Replace(str, "")(0)
msgbox numbers
数字なしの文字列を返す関数
Public Function _RemoveNonDigitCharacters(S As String) As String
Return New String(S.Where(Function(x As Char) System.Char.IsDigit(x)).ToArray)
End Function
線形検索アプローチでは、このアルゴリズムを使用できます。C#ですが、vb.netで簡単に翻訳できます。
string str = “123a123”;
for(int i=0;i<str.length()-1;i++)
{
if(int.TryParse(str[i], out nval))
continue;
else
str=str.Rremove(i,i+1);
}