Question

vb 把字符串里的空格有长有短，空格是连续的，如3个连续半角空格转换为1个全角空格和1个半角字符。

S=" v 6维吾尔 sdsdfffs ‘ ？"
保证所有位置宽度
主要是在textbox=S长度变
1楼抢答的不对，要是这么简单还用提问吗？把这东西发送到对话框就变啦。大致是多个连续半角空格，最多只能保留2个半角空格，而设置连续全角空格，对话框均可以默认
手动在记事本确定全角空格和半角空格（3个连续的无效）均能被对话框识别

Answer 1

用一个Replace函数就替换完成了：

S="   v    6维吾尔          sdsdfffs        ‘     ？"

S = Replace(S, "   ", "　 ")    '半角空格替换为全角空格

以下是我再次作的试验：

Private Sub Command1_Click()

Open "d:\111.txt" For Output As #1

s = "   v    6维吾尔          sdsdfffs        ‘     ？"

Print #1, s

Print #1,

Print #1,

s = Replace(s, "   ", "　 ")    '半角空格替换为全角空格

Print #1, s

Close #1

End Sub

分别用记事本和16进制编辑器打开的文档，仔细看清楚，换了没有？长度变了没有？

在知道上问问题，别人费心费力给你作了回答，你却是看都不仔细看一下，……？