你是要把連續(xù)多個空格,變換成只需要一個空格,那么:
成都創(chuàng)新互聯(lián)公司專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、元寶山網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5頁面制作、電子商務(wù)商城網(wǎng)站建設(shè)、集團公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)公司、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為元寶山等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個空格,替換2個空格
loop
可以把某個列為空就當(dāng)做是空行,你連接字符串是hdr=no,也就是第一行不作為列標(biāo)題,那么就是用的默認(rèn)的列標(biāo)題,F(xiàn)1,F(xiàn)2.。。這些。
比如,第一列的某行為空的話就當(dāng)做是空行,你可以加這個條件 where len([F1]) 0
為什么一定要用VB.NET?用EXCEL中的VBA即可完成,如果需要,代碼如下:
Sub?test()
Dim?Last?As?Double,?SUM?As?Double,?Resault?As?Double,?Count?As?Integer
Data?=?Range("a1:a"??Cells.Find("*",?,?,?,?1,?2).Row)
SUM?=?0:?Count?=?0
For?i?=?1?To?UBound(Data,?1)
If?Data(i,?1)??0?Then
If?Last??0?Then
SUM?=?SUM?+?Data(i,?1)?-?Last
Count?=?Count?+?1
End?If
Last?=?Data(i,?1)
End?If
Next?i
Resault?=?SUM?/?Count
End?Sub
注:由于統(tǒng)計方式比較簡單,要取得需要的結(jié)果并不需要將相減后的數(shù)據(jù)放入另一數(shù)組,所以沒有浪費內(nèi)存去生成另一個數(shù)組。
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留
一個字符一個字符的判斷,空格就刪除,非空格就保留