vb怎樣只讀取每行中的數字,VB逐一讀取Text1裡面的數字

2022-03-05 22:13:13 字數 1637 閱讀 3330

1樓:

看看這兩個函式.應該能解決你的問題了.

val 函式

返回包含於字串內的數字,字串中是一個適當型別的數值。

語法val(string)

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

說明val 函式,在它不能識別為數字的第一個字元上,停止讀入字串。那些被認為是數值的一部分的符號和字元,例如美圓號與逗號,都不能被識別。但是函式可以識別進位制符號 &o(八進位制)和 &h(十六進位制)。

空白、製表符和換行符都從引數中被去掉。

下面的返回值為 1615198:

val(" 1615 198th street n.e.")

在下面的**中,val 為所示的十六進位制數值返回十進位制數值 -1。

val("&hffff")

注意 val 函式只會將句點(.)當成一個可用的小數點分隔符。當使用不同的小數點分隔符時,如在國際版應用程式中,代之以 cdbl 來把字串轉換為數字。

mid 函式

返回 variant (string),其中包含字串中指定數量的字元。

語法mid(string, start[, length])

mid 函式的語法具有下面的命名引數:

部分 說明

string 必要引數。字串表示式,從中返回字元。如果 string 包含 null,將返回 null。

start 必要引數。為 long。string 中被取出部分的字元位置。如果 start 超過 string 的字元數,mid 返回零長度字串 ("")。

length 可選引數;為 variant (long)。要返回的字元數。如果省略或 length 超過文字的字元數(包括 start 處的字元),將返回字串中從 start 到尾端的所有字元。

說明欲知 string 的字元數,可用 len 函式。

注意 midb 函式作用於字串中包含的位元組資料,如同在雙位元組字符集(dbcs)語言中一樣。因此其引數指定的是位元組數,而不是字元數。對於使用 midb的示例**,請參閱示例主題中的第二個

2樓:匿名使用者

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'判斷改字是否是數字,用isnumeric判斷是否是數字

s = val(mid(a, i))'如果是數字,就提取出來,用到val函式

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

end if

next

msgbox s 's的值就是1314

end sub

vb逐一讀取text1裡面的數字

3樓:網海1書生

這要看到你的資料格式才能決定,能否列出一段資料看看?

4樓:匿名使用者

那些數字是怎麼排列的?使用逗號間隔 還是空格間隔 還是每一行一個數字呢?

VB如何連續讀取串列埠資料,vb怎樣讀取串列埠資料並進行處理?

vb6.0mscomm控制元件可以利用oncomm事件連續獲取來自外設傳送的訊號。基於 1 mscomm控制元件的rthreshold 屬性不為0和恰當的接收 2 使用電腦主機板物理com口或pci多串列埠卡上的com口com,這樣的com口是全雙工的,傳送與接收不會衝突。3 高質量的接收 和符合通...

vb 如何設定讀取密碼在ini文字中

應該這下面合適你的要求了。private sub command1 click if dir f password.ini then open f password.ini for input as 1 line input 1,mima close 1 if text1.text mima the...

VB中的msgbox問題,vb中msgbox的問題

msgbox a b 顯示字串連線的結果 象我這麼寫。就對了!vb中msgbox的問題 a msgbox 必須在工資審批任務完成後才能進行更新記錄操作!請選擇是否進行更新記錄操作 vbyesno,確定更新 少了一個逗號吧,vbyesno前面加個逗號看看看其他是沒錯的 因為你點了確定按鈕這時x才會有值...