提取字符串中的数字

有时候在做一些基础的数据结构的题中,经常可能会有接收一些字符串,字符串中含有数字,然后要求对其中的数字进行运算。这就需要提取其中的数字,再进行运算。
我以前经常是这样进行转换的:

public static void main(String[] args){
    Scanner sc = new Scanner(System.in);
    while(sc.hasNext()){
    String str = sc.nextLine();
    int a = str.length();
    int [] array = new int[a];
    for(int i=0; i<a; i++){
        **array[i] = Integer.parseInt(String.valueOf(str.charAt(i)));**
        }
    }
}

今天在看别人写的答案的时候,发现有人是这样进行转换的:
将上面的加黑的代码替换成下面这行代码

**array[i] = str.charAt(i)-'0';**

原理其实很简单,就是利用ASCII值,进行转换的。自己原来没想过用这种方法来进行转换。

在VBA中,有多种方法可以提取字符串中的数字,以下是几种常见的实现方式: ### 方法一:使用正则表达式提取指定字符串后的数字 此方法可以提取以 "check" 开头,后面紧跟的数字。 ```vba Sub 提取数字() Dim regexp As New regexp With regexp .Pattern = "check\s*(\d+)" End With With Worksheets("sheet1") r = .Cells(.Rows.Count, 1).End(xlUp).Row arr = .Range("a1:b" & r) For i = 1 To UBound(arr) Set mh = regexp.Execute(arr(i, 1)) arr(i, 2) = mh(0).SubMatches(0) Next .Range("a1:b" & r) = arr End With End Sub ``` 该代码通过正则表达式匹配以 "check" 开头,后面跟着零个或多个空格,再跟着一个或多个数字的模式,将匹配到的数字提取出来并存储在另一列中[^1]。 ### 方法二:自定义函数提取数字 可以创建一个自定义函数,在任意单元格中调用该函数来提取数字。 ```vba Function NumExtract(str As String) As String Dim reg As Object Set reg = CreateObject("vbscript.regexp") With reg .Global = True .Pattern = "\d" NumExtract = reg.Replace(str, "") End With Set reg = Nothing End Function ``` 使用时,在任意单元格输入 `=NumExtract(要提取的单元格)` 即可将数字提取出来[^2]。 ### 方法三:利用正则表达式删除非数字字符 该方法通过删除字符串中的字母和汉字,从而得到数字。 ```vba Function delch(str As String) As String Dim reg As Object Set reg = CreateObject("vbscript.regexp") With reg .Global = True .Pattern = "[A-Z\u3E00-\u9FA5]" delch = .Replace(str, "") End With Set reg = Nothing End Function ``` 此函数会将字符串中的大写字母和汉字替换为空字符串,最终返回只包含数字字符串[^3]。 ### 方法四:提取字符串中的所有数字 通过正则表达式匹配字符串中的所有数字,并将其连接起来。 ```vba Private Sub CommandButton1_Click() s = Range("J2") Set regex = CreateObject("vbscript.regexp") With regex .Global = True .Pattern = "\d+" For Each te In .Execute(s) txt = txt & te Next End With Range("l2") = txt End Sub ``` 该代码会遍历字符串中所有匹配到的数字,并将它们连接起来,最终将结果存储在指定单元格中[^4]。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值