你是要把连续多个空格，变换成只需要一个空格，那么：
创新互联建站凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、做网站、成都网站设计、网站优化、软件开发、网站改版等服务，在成都10余年的网站建设设计经验，为成都成百上千家中小型企业策划设计了网站。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
在VB NET中 当你需要在控制台显示数据或准备好打印数据时 可能需要调整列宽以显示固定长度的数据 本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示
PadLeft和PadRight方法
PadLeft和PadRight是字符串类的两个方法 可以分别使用它们在字符串的左边和右边填充空格 这两个方法多接受一个代表总长度的整型数 添加的空格数等于填充总长度减去字符串的当前长度
注意 在完成将字符串格式化为固定宽度显示的工作时 应该使用固定宽度的字体 例如Courier等 因为固定宽度的字符占有相同的宽度 否则 填充将会无效
程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式 使用tabs的一个问题是 当某行长度比能够显示的长度长时 将会对tab进行扩展 这将导致各行不能很好对齐
列表A中 我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串 （为了运行该例子 我们添加了一个下拉列表ListBox 并将它的字体设置为固定宽度的字体）图 显示了运行列表A中的代码后的结果
在本例中 我们定义了一个整型变量i和两个字符串数组 strArrSeasons和strArrWeather 每个数组赋初值为预定义好的值 然后 我们将每个数组传递给函数PadArray 并指定在字符串的左侧扩充
列表A
lishixinzhi/Article/program/net/201311/11703
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
Dim str As String = "中华人民共和国adfjpwqetqadfwetqgasdfewgt"
Dim tstr As String = ""
Dim i As Integer
For i = 0 To str.Length - 1
tstr = str.Substring(i, 1) " " '每一个字符后面加空格。
Next
tstr = tstr.TrimEnd(" ") '移除最后一个空格
Textbox1.Text = tstr
