关于提取数字的问题！

2003-04-07 12:35:01 68 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

openEuler 20.03 LTS面向RK3399移植系列（3）—openEuler 20.03 LTS面向Firefly RK3399的第一个版本（Linux kernel 4.4）任务动机：完成openEuler面向RK3399开发板的移植。任务描述：按照固件烧写准备，固件获取，固件打包和烧写的步骤实现openEuler面向RK3399开发板的移植，整理过程和相关命令记录到文档。 1. 制作openEuler的rootfs.img 1.1 开发环境树莓派--openEuler系统 openEuler 20.03 LTS 的内测版本镜像，下载。 1.2 具体操作 1.2.1 ssh远程连接树莓派确定树莓派IP ssh连接 1.2.2 制作rootfs.img 阅读详情

我想要提取数字如下
110293-18765-09876
请问如何将 110293、18765、09876分别提取出来附值给变量A1，A2，A3！
使A1，A2，A3的值为A1=110293,A2=18765,A3=09876

...全文

AI应用架构师总结：智能问答系统用户意图识别的8种方法与实践！意图识别是智能问答系统的大脑入口，其技术水平决定了系统能否准确捕捉用户的核心诉求。本文系统剖析了从基础规则到前沿PLM的8种核心意图识别方法透明简单，冷启动快，维护成本高。中等规模场景基线，依赖特征工程。利用词义和局部/序列信息，训练成本高。当前最优精度，需大量资源。添加意图灵活，冷启动友好，精度可能略逊。提升鲁棒性，系统变复杂。解决歧义和自然交互的关键（多轮）。增强专业领域理解和推理能力。成功的意图识别模块需要：精准的意图定义（Schema）是前提！阅读详情

moleboy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

YFY 2003-04-07

打赏
举报

dim strSource as string
dim strResult(20) as string
dim strTmp as string
dim i as integer ,j as integer
dim A1 as string ,A2 as string ,A3 as string

strSource = 110293-18765-09876

i = 1
strResult(1) = ""

For j = 1 To len(strSource)
strTmp = Mid(strSource , j, 1)
If sTmp <> "-" Then
strResult(i) = strResult(i) & strTmp
Else
i = i + 1
strResult(i) = ""
End If
Next j

A1 = strResult(1)
A2 = strResult(2)
A3 = strResult(3)

zengjun1980 2003-04-07

打赏
举报

dim a1,a2,a3 as string
dim ax() as string

ax=split("110293-18765-09876","-")

a1=ax(0)
a2=ax(1)
a3=ax(2)

Cooly(☆回答问题不要分儿☆)老兄，你很厲害!

AechoJohn 2003-04-07

打赏
举报

dim strS as string
dim strWord() as string
strS = "110293-18765-09876"
strWord = split (strS,"-")
A1 = strWord(0)
A2 = strWord(1)
A3 = strWord(2)

czjw 2003-04-07

打赏
举报

A="110293-18765-09876"
Txt = split(A,"-")

Cooly 2003-04-07

打赏
举报

dim a1,a2,a3 as string
dim ax() as string

ax=split("110293-18765-09876","-")

a1=ax(0)
a2=ax(1)
a3=ax(2)

minajo21 2003-04-07

打赏
举报

A1=Extract("110293-18765-09876","-",0)
A2=Extract("110293-18765-09876","-",1)
A3=Extract("110293-18765-09876","-",2)

Public Function Extract(Text As String, strSeparator As String, ByVal Index As Long) As String
Dim strColl As New VBA.Collection
Dim lngStart As Long 'the first place finding begin
Dim lngLoc As Long 'the position of ","
Dim lngLocPrev As Long
Dim blnEnd As Boolean

blnEnd = False
lngStart = 1
lngLocPrev = 0

Do While Not blnEnd
lngLoc = VBA.InStr(lngStart, Text, strSeparator)
If lngLoc <> 0 Then
If (lngLoc <> lngStart) Then
strColl.Add VBA.Mid(Text, lngStart, lngLoc - lngStart)
End If
lngStart = lngLoc + VBA.Len(VBA.Trim(strSeparator))
Else
strColl.Add VBA.Mid(Text, lngStart)
blnEnd = True
End If
Loop

If (0 <= Index) And (Index < strColl.count) Then
Extract = VBA.Trim(strColl.Item(Index + 1))
Else
Extract = ""
End If
Set strColl = Nothing
End Function

Cooly 2003-04-07

打赏
举报

'Split函数

Split(expression[, delimiter[, limit[, compare]]])

fleshboy 2003-04-07

打赏
举报

dim strArr() as string

strArr=split("110293-18765-09876","-")

A1=Val(strArr(0))
A2=Val(strArr(1))
A3=Val(strArr(2))

关于提取数字的问题！

相关推荐