一个字符一个字符的判断，空格就删除，非空格就保留
成都创新互联公司成立与2013年，是专业互联网技术服务公司，拥有项目网站制作、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元灵山做网站,已为上家服务,为灵山各地企业和个人服务,联系电话:13518219792
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
如果只是末尾的空行，直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串，没有"TMD"，
还有：if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
第8个字符是个看不见的字符并且不是空格，可以查一下AscⅡ码值和空格值进行比较，如获取AscⅡ码值 Dim a = Asc(Mid("stopped8", 8, 1))
Len(String) 返回的是 String 的字符数。
Len(Integer（或其他数值类型）) 返回的是这个数值类型的字节长度。
Trim(100)，Trim() 后的结果已经转换成 String 字符串类型了。
而 100 这是一个 Integer 类型的数，Len 返回的是一个 Integer 所占的字节数，也就是4。
你要是想返回 100 这个字符串的字符长度，应该用双引号引上，Len("100")=3。
