vb一組資料去掉多餘的空格,轉換下格式

2022-12-19 09:55:54 字數 1121 閱讀 8763

1樓:匿名使用者

怎麼這幾天那麼多類似問題?

多行變單行只能把他放到另一個單行的textbox了,因為textbox的multiline屬性執行時候不能改。

private sub command1_click()

text1.text = trim(text1.text) '去掉兩端空格

do until instr(text1.text, " ") = 0 '直到沒有兩個連續空格

text1.text = replace(text1.text, " ", " ") '將兩個連續空格替換為一個空格

loop

end sub

單行顯示,當然text2的multiline屬性設定為false,否則textbox寬度不夠一樣會自動換行。

private sub command1_click()

b = trim(text1.text) '去掉兩端空格

'b = replace(b, vbcrlf, " ") '去掉回車換行符,如果text2的multiline屬性為false可以省略這句

do until instr(b, " ") = 0 '直到沒有兩個連續空格

b = replace(b, " ", " ") '將兩個連續空格替換為一個空格

loop

text2.text = b

end sub

2樓:匿名使用者

'工程》引用》microsoft vbscript regular expressions 5.5

'假設你的資料在text1

'通過下面過程將text1資料整理後再存回text1private sub command1_click()dim oreg as regexp

dim stmp as string

stmp=text1.text

oreg.pattern="\d+"

stmp=oreg.replace(stmp," ")stmp=replace(stmp,vbcrlf,"")stmp=replace(stmp,vbcr,"")text1.text=stmp

set oreg=nothing

end sub

簡單的求VB最大最小值,vb求一組數的最小值和最大值

private sub form click dim a 4 as single,i as integer,j as integer for i 1 to 3 for j i 1 to 4 if a i a j then a 0 a j a j a i a i a 0 next next print...

EXCEL中,如何取一組資料的最多值

應該是3是最多的把 假設這些資料在a1 a13單元格 在a列以外的任意單元格輸入 max countif a1 a14,a1 a14 ctrl shift enter 三鍵結束 1 假設你的資料在a列,從a2單元格開始。你可以在後面新增一個輔助區 如在d1 m1中,每個單元分別輸入0 9十位數。2 ...

請教大俠問題如何計算一組資料相對於資料的離散度

離散bai度,應該就是可以用標準du差來顯示的每個數和平zhi均數的差的平方dao 回相加再除以個數,最後開方 比如答a組59.57446809 61.94690265 61.64383562 60.39031212 60.85002808 61.16504854 61.66982922 61.28...