你是要把连续多个空格,变换成只需要一个空格,那么:
成都创新互联公司专注于企业成都全网营销推广、网站重做改版、元宝山网站定制设计、自适应品牌网站建设、H5页面制作、电子商务商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为元宝山等各大城市提供网站开发制作服务。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
可以把某个列为空就当做是空行,你连接字符串是hdr=no,也就是第一行不作为列标题,那么就是用的默认的列标题,F1,F2.。。这些。
比如,第一列的某行为空的话就当做是空行,你可以加这个条件 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
注:由于统计方式比较简单,要取得需要的结果并不需要将相减后的数据放入另一数组,所以没有浪费内存去生成另一个数组。
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留