VB 獲取數字部分，VB 如何提取字串中的數字

按以下形式放置控制項：command1， text1private sub command1 click（）dim i as long， nstr as string， mstr as string， str1 as string

nstr =

for i = 1 to len(nstr)str1 = mid(nstr, i, 1)if isnumeric(str1) then mstr = mstr & str1

nextmsgbox "數值部分是：" & mstrend sub

private sub form_load()= "fjls34234ls"

end sub

看看這兩個函式。 它應該可以解決您的問題。

val 函式。

返回包含在字串中的數字，該數字是適當型別的值。

語法 val（string）。

必要的字串引數可以是任何有效的字串表示式。

描述 val 函式，該函式停止讀取它無法識別為數字的第乙個字元上的字串。 無法識別被視為數值一部分的符號和字元，例如法國號和逗號。 但是，該函式可以識別進位符號 &o（八進位）和 &h（十六進製）。

空格、製表符和換行符都從引數中剝離出來。

1615198以下返回值：

val(" 1615 198th street ")

在下面的 ** 中，val 返回顯示的十六進製值的十進位值 -1。

val("&hffff")

請注意，val 函式將僅設定句點 （..）） 作為可用的小數點分隔符。使用不同的小數分隔符時，例如在應用程式的國際版本中，請將其替換為 CDBL 以將字串轉換為數字。

mid 函式。

返回乙個變體（字串），該變體包含字串中指定的字元數。

語法 mid（string， start[， length]）。

mid 函式的語法具有以下命名引數：

部分說明。

字串必需的引數。 從中返回字元的字串表示式。 如果字串包含 null，則返回 null。

start 引數為必填項。 是字元在被取出的部分中的位置。 如果 start 超過字串中的字元數，則 mid 返回長度為零的字串 （"")。

length 可選引數; 是變體（長）。 要返回的字元數。 如果省略或長度超過文字中的字元數（包括開頭的字元），則返回字串中從頭到尾的所有字元。

若要指示字串中的字元數，可以使用 len 函式。

請注意，midb 函式適用於字串中包含的位元組，就像在雙位元組字符集 （DBCS） 語言中一樣。 因此，該引數指定位元組數，而不是字元數。 有關使用 MIDB 的示例，請參閱示例主題中的第二個示例。

如何在VB中從段落的文字中提取數字，需要通過文字中的單詞來一一判斷，如果是數字，則返回所需的結果。 **下面：

private sub command1_click()dim a as string

a = "我愛你1314，你"

for i = 1 to len(a)'對於文字中的每個單詞，b = mid（a， i， 1） 被確定為週期性確定

if isnumeric(b) then'判斷單詞 change 是否為數字，並使用 isnumeric 判斷是否為數字。

s = val(mid(a, i))'如果它是乙個數字，請提取它並使用 val 函式。

exit for'提取數字後，退出迴圈。

end if

nextmsgbox s 's 的值為 1314

end sub

使用我提供的函式，您可以攔截 A 字串和 B 字串之間的中間字串

function getbydiv(byval code as string, byval divbegin as string, divend as string) '獲取分隔符的內容 [完成，測試]。

dim lgstart as long

dim lens as long

dim lgend as long

lens = len(divbegin)

lgstart = instr(1, code, divbegin) +clng(lens)

lgend = instr(lgstart, code, divend)

getbydiv = mid(code, lgstart, lgend - lgstart)

end function

val 函式可用於提取字串中的數字，但只能提取連續的數字。

遇到符號時停止。

解決方法是分段提取，然後組合提取。

您應該學習正規表示式，並快速使用它們來處理它們。

private sub command1_click()text = "如：""2014/2/10""，執行後非數字字元都消失了，結果是“2014210”。"

set regex = createobject("")= true

\d+"'匹配非數字。

text = , " ") '將非數字替換為空格訊息框文字

end sub

確定有多少位數字，例如輸入框中的 text1

顯示中文含義？ 英譯成中文？ 那必須有乙個字典庫。

1 改為“一”或“一”。

2.將其替換為“二”或“二”。

這就是LZ的意思嗎？

如果它是整數。

len （是位數。

編寫以下程式：

len（用於確定位數。

Visual Basic 是由 Microsoft Corporation 開發的一種事件驅動程式語言，其中包括輔助開發環境。 無論以何種標準衡量，VB 都是世界上使用最多的語言——不僅對讚美 VB 的開發人員來說，而且對那些抱怨它的人也是如此。 它源自基本程式語言。

VB 具有圖形使用者介面 （GUI） 和快速應用程式開發 （RAD） 系統，這使得使用 DAO、RDO、ADO 或輕鬆建立 ActiveX 控制項可以輕鬆連線到資料庫。 程式設計師可以使用 VB 提供的元件輕鬆快速地構建應用程式。

自定義函式並呼叫它。 這可以普遍使用。 ** 以下內容可直接複製。

option explicit

建立乙個新專案，並向窗體新增兩個文字框控制項、乙個 commandbutton 控制項和乙個 label 控制項'將 text1 的多行屬性設定為 true

private sub command1_click()

findda( 'text2 的內容是答案，因此您可以輸出四個 ABCD 中的任何乙個。

end sub

private sub form_load()

with text1

text = "a:1" & vbcrlf & "b:2" & vbcrlf & "c:4" & vbcrlf & "d:5"

end with

end sub

private function findda(dan$) as string

dim j&

j = instr(, dan)

if dan = "" or j = 0 then exit function

findda = mid(, j - 2, 1)

end function

使用一些函式，如 VB6：

1. instr（） 函式。

2. left（） 函式。

3. right（） 函式。

4. len（） 函式。

這是可以解決的。

不要用按鍵提取，那都是按鍵，如果人們打了一半的打字，發現他們按錯了按鈕刪除什麼的，就不必都考慮了。

這個想法是，在 text2 的更改中，每個更改都從頭到尾逐字處理，並在找到數字時調出數字。 只要不是一次發布幾百公尺的文章，效率還可以。

for i = 0 to len(

t=instr(,i,1)

if isnumeric(t) then

result=rusult & t

end if

接下來，我已經很久沒有碰過VB6了，我一般都有這種感覺。 如果行數較多，請新增換行符以確定它是否是回車符，如果是，則取回車符。 有乙個常量的 vbcrlf 可用。

建議學習正規表示式，邊走邊練習，然後你會發現使用正規表示式來獲取這個指定資訊很方便。