关于string*10的问题？

Question

我的问题是这是定长的字符串
dim a as string*10
    a="tong"
    那么怎样才能把a变量中其余的空间去掉呢！

Answer 1

Left(a , InStr(a , Chr(0)) - 1)

Answer 2

我曾经遇到过！但想法极臭，你看要不要！！！
我是将这个字符串放进一个textbox 然后在 mid(...)
Private Function DelSpace(strInput As String) As String
    '功能：删除多余的空格
    Dim strTemp As String
    Dim intLen As Integer
    frmQA.txtTemp.Text = strInput
    intLen = Len(Trim(frmQA.txtTemp.Text))
    DelSpace = Mid(strInput, 1, intLen)
End Function

Answer 3

我就是用textbox去掉后面一堆东东（不是空格，看不着，摸不着），
text1.text=a
b=text1.text
这样，b就没有10字节这么长了。我也觉得这种方法比较笨，但是我现在也找不到比这更好的方法了。

Answer 4

Left(a , InStr(a , Chr(0)) - 1)
 这个行不同的！用text是好方法！行的通的！还有没有别的高招的！：）

Answer 5

试试这个Private Sub Command1_Click()
    Dim a As String * 10
    a = "Tong"
    MsgBox Trim(a) & "Here"
End Sub
把trim函数去掉再试试

Answer 6

dim a as string *10
dim b as string   a="Tong"
  b=trim(a)

Answer 7

去左右空格用
ltrim() 与rtrim() 不就可以了

Answer 8

这又不是动态数组，怎么能用redim呢？

Answer 9

这还有一招：
    Dim i As Integer
    Dim a As String * 11
    Dim b As String
    
    a = "tong"
    
    For i = 1 To Len(a)
        If Mid(a, Len(a), 1) = Mid(a, i, 1) Then
            MsgBox b & "+end"
            Exit Sub
        Else
            b = b & Mid(a, i, 1)
        End If
    Next i

Answer 10

定长字符串是不可已变短的。
如果你 Dim a As String * 10
那么你只要给a赋值就会有空格如果你要把空格去掉，只需放到另一个变量即可，如：
Dim b As String 
b = Trim(a)如果你不想这么麻烦，又确实需要定义一个定长的空格字符串做缓冲
那么你可以这么做：
Dim a As String
a = Space(10)
....'用于Windows API函数的参数；

Answer 11

使用 ReDim 语句反复地改变数组的元素以及维数的数目，但是不能在将一个数组定义为某种数据类型之后，再使用 ReDim 将该数组改为其它数据类型，除非是 Variant 所包含的数组。
用Text转或者再定义一个数组都可以。