技術(shù) 點(diǎn)
- 技術(shù)
- 點(diǎn)
- V幣
- 點(diǎn)
- 積分
- 22850
|
4#
發(fā)表于 2016-3-30 14:47:40
|
只看該作者
本帖最后由 roych 于 2016-4-4 16:26 編輯
站長(zhǎng),你再這樣,我也去Excel陣營(yíng)了
對(duì)于Access來說,得使用強(qiáng)大的VBA了。
根據(jù)規(guī)則,這個(gè)是提取文本中的數(shù)字(姑且這么理解吧):
規(guī)則1:instr取得第一個(gè)數(shù)字位置,用mid和len截取剩余數(shù)字即可。
規(guī)則2:跟規(guī)則1類似,不同的是,mid函數(shù)需要取得最后一個(gè)參數(shù)。
----------------------------------------------------------------------------------
2016-4-4更新附件
- Function MyMid(ByVal strSource As String) As String
- Dim i As Long
- Dim iStart As Long, iEnd As Long
- '開始位置
- For i = 1 To Len(strSource)
- If IsNumeric(Mid(strSource, i, 1)) Then
- iStart = i
- Exit For
- End If
- Next
- '結(jié)束位置
- For i = iStart To Len(strSource)
- If IsNumeric(Mid(strSource, i, 1)) Then
- iEnd = i
- End If
- Next
- '提取
- If iStart = 0 Then
- MyMid = ""
- Else
- MyMid = Mid(strSource, iStart, iEnd - iStart + 1)
- End If
- End Function
復(fù)制代碼
|
本帖子中包含更多資源
您需要 登錄 才可以下載或查看,沒有帳號(hào)?注冊(cè)
x
|