VB 如何去掉一个字符串中的空格

yangke1994 2009-08-21 09:15:51

一个字符串，里边有若干个空格，如何去掉？

...全文

1481 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

hanvan 2009-08-21

打赏
举报

replace(变量或常量," ","")

无·法 2009-08-21

打赏
举报

[Quote=引用 4 楼 seth_yan 的回复:]
Dim sendString$
sendString = Replace(Text1.Text, vbCrLf, "") ' 把回车、换行先替换成空格
sendString = Trim(sendString) ' 再去掉所有的空格

给你个更全面的，去掉回车和空格
[/Quote]
hua she tian zu,er qian hai cuo le

神马都能聊 2009-08-21

打赏
举报

[Quote=引用 3 楼 yachong 的回复:]
引用 2 楼 mybelta2 的回复:
引用 1 楼 aisac 的回复:
s="s s s f ssfds sssa"
s = replace(s,"")

OK

很明显aisac笔误了，少写一个参数
VB codes="s s s f ssfds sssa"
s=Replace(s,"","")
[/Quote]
哈哈，谢谢，我没注意少写了个参数，谢谢！

seth_yan 2009-08-21

打赏
举报

Dim sendString$
sendString = Replace(Text1.Text, vbCrLf, "") ' 把回车、换行先替换成空格
sendString = Trim(sendString) ' 再去掉所有的空格

给你个更全面的，去掉回车和空格

yachong 2009-08-21

打赏
举报

[Quote=引用 2 楼 mybelta2 的回复:]
引用 1 楼 aisac 的回复:
s="s s s f ssfds sssa"
s = replace(s,"")

OK
[/Quote]
很明显aisac笔误了，少写一个参数

s = "s s s f ssfds sssa"

s = Replace(s, " ", "")

mybelta2 2009-08-21

打赏
举报

[Quote=引用 1 楼 aisac 的回复:]
s="s s s f ssfds sssa"
s = replace(s,"")
[/Quote]
OK

神马都能聊 2009-08-21

打赏
举报

s="s s s f ssfds sssa"
s = replace(s,"")

vb去除前后空格trim()函数使用

vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定：　　Private Sub Command1_Click() 　　 Text2.Text = RTrim(Text1) 　　End Sub 　　主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。

Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left Left(string,length) 从string字符串的左边取得length长度的字符串 Right Right(string,length) 从string字符串的右边取得length长度的字符串 LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1 InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。 count 返回的子字符串数目，-1 指示返回所有子字符串。

VB2010读取指定字符串。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '定义变量的类型很重要，关系到计数的开始，如果数整型，则开始的0不在计算之列，如果是字符串，则计算 Dim wIM, yIM As String TextBox1.Text = "123456789" wIM = TextBox1.Text '空格计算位数 yIM = Mid(wIM, 6, 2) TextBox2.Text = yIM 'TextBox2.Text = Convert.ToInt32(yIM, 2) End Sub Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click End Sub Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged '将第6，第7个数转换为ASCII码，然后转化为2进制 Dim AIM, bIM As String Dim bttext As Byte() Dim strbin As String = "" AIM = TextBox1.Text bIM = Mid(AIM, 6, 2) TextBox2.Text = bIM bttext = System.Text.Encoding.UTF8.GetBytes(TextBox2.Text) For i = 0 To bttext.Length - 1 strBin = strBin & Convert.ToString(Int32.Parse(bttext(i)), 2).PadLeft(8, "0") Next i TextBox3.Text = strbin End Sub End Class

VB校验和，将16进制字符串转为10进制后相加，用于将文本框中的空格去掉，将字符串中回车、换行符去掉。

VB基础类

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章