vb问题 有一个字符串有多个空格，如何区最后一个空格的前四位和最后空格的后边的所有位
例如：123214442 2412423235 2234235235234 234235423
截取a=5234 ;b=234235423
谢谢你的帮助 这个问题 太难了我打不出来 只有请教高手了
截取 text1.text="打不出来" ;text2.text="只有请教高手了"
按照2楼的做法提示下标越界，why
Private Sub Command1_Click()
Dim i As Integer
Dim a() As String
a() = Split(Text1.Text, "")
Text2.Text = a(UBound(a) - 1)
Text3.Text = Left(a(UBound(a) - 2), 4)
End Sub
Private Sub Form_Load()
Text1.Text = "谢谢你的帮助 这个问题 太难了我打不出来 只有请教高手了haha"
End Sub
dim a() as string
a=spli(strl," ")
最后空格的后边所有位
=a(ubound(a)-1)
最后一个空格前的四位
n=ubound(a)
=left(" " & a(n-3) & " " & a(n-2),4)
这个是原数据列的后4位，包含空格，如果说只要求最后一个数组元素的4位，直接
=left(a(ubound(a)-2),4)就行了！
i = 0
Do While Tempstr <> " "
Tempstr = Mid(C, Len(C) - i, 1)
i = i + 1
If i = Len(C) Then
Exit Do
End If
Loop
If Len(C) - i - 3 <= 0 Then
a = "打不出来"
b = "只有请教高手了"
Else
a = Mid(C, Len(C) - i - 3, 4)
b = Mid(C, Len(C) - i + 2)
End If
MsgBox a & " " & b
vb问题 有一个字符串有多个空格,如何区最后一个空格的前四位和最后空 ...
dim a() as string a=spli(strl," ")最后空格的后边所有位 =a(ubound(a)-1)最后一个空格前的四位 n=ubound(a)=left(" " & a(n-3) & " " & a(n-2),4)这个是原数据列的后4位，包含空格，如果说只要求最后一个数组元素的4位，直接 =left(a(ubound(a)-2),4)就行了！
用VB如何截取一个字符串前或后的空字符(如空格)
或者 a = Trim(" 12345 ")这个是vb6.0里面的函数 至于在.net里面的我就不知道了，不好意思啦~~~
...同时删去第一个字符前和最后一个字符前的空格
Private Sub Command1_Click() Dim strS As String strS = InputBox("请输入字符串", "", " a bcd ef ghij k lmn ") Label1.Caption = strS strS = Trim(strS) Do While ContinuousSpace(strS) For i = 1 To Len(strS) - 1 If Mid(strS, ...
VB 去除字符串中的空格
'此函数KillSpace用以除去字符串中的空格，请将此函数粘贴到代码窗口空白处。（不在任何Sub过程里）Function KillSpace(Expression)Dim tmpS For i = 1 To Len(Expression)tmpT = Mid(Expression, i, 1)If tmpT <> " " Then tmpS = tmpS & tmpT Next i KillSpace = tmpS End Function'在某...
vb中怎样把字符串中的多个空格合并成一个空格
Private Function MyTrim(s As String) As String MyTrim = Trim(s) '去掉首尾空格 Do While InStr(1, MyTrim, " ") > 0 '循环直到检查到没有两个连续的空格 MyTrim = Replace(MyTrim, " ", " ")Loop End Function Private Sub Command1_Click()Dim s As String s = " a ...
VB 如何去掉一个字符串中的空格
可以使用replace函数去除字符串中的空格 例如：Private Sub Command12_Click()MsgBox Replace("中华 人 民共 和 国 ", " ", "")End Sub 将弹出消息框显示：“中华人民共和国”
VB中如何用空格截取字符串,获得某一位置的数值
最好用Split函数分割 Private Sub Form_Click() Text1 = "1 23 4343535 先找空格的位置再用midstr（好像是）截取 mid(变量,起始字符，结束字符
vb 如何删除文本框最后一行空行?
1、打开Visual Basic 6.0软件，新建一个标准exe工程，窗体设计界面上添加一个Text1，一个Command控件；2、设计Text1的Multiline属性值为True;3、窗体上进入代码编辑界面，代码如下:Private Sub Command1_Click()If Right(Text1.Text, 2) = vbCrLf Then Text1.Text = Left(Text1.Text, Len(Text1...
vb如何删除一个字符串的所有空格和换行符
Dim A As String, B As String Dim i As Long, j As Long, k As Long A = "abcdef 77 8e9"B = ""k = Len(A)For i = 1 To k j = Asc(Mid(A, i))If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个条件是全角空格 B = B & Chr(...
...将s中的前导空格和尾随空格删去,中间连续多个空格缩减为一个空_百度...
去掉前后空格用Trim()，中间的空格麻烦点，要逐个字符分析 Dim c As String * 1 Dim strResult As String Dim b As Boolean, i As Long For i = 1 To Len(s)c = Mid(s, i, 1)If c = " " Then If Not b Then strResult = strResult & c b = True End If Else strResult =...
