vb中字符串操作的问题

发布网友发布时间：2024-11-30 19:15

共6个回答

热心网友时间：2024-11-30 20:19

窗体上放两个Text,一个按钮
Option Explicit

Private Sub Command1_Click()
  Text1.Text = "1010 0010 1101 1010 1010"
  Dim a() As String
  a = Split(Text1.Text, " ")
  Dim i As Integer
  If UBound(a) > 0 Then
    Text2.Text = a(0)
    For i = 1 To UBound(a)
      Text2.Text = Text2.Text & " " & a(i)
    Next
  Else
    Text2.Text = ""
  End If
End Sub

如果还有什么问题,请补充,或发百度消息

热心网友时间：2024-11-30 20:19

最简单的方法：
dim a,i as integer
a=split(text1.text," ")
for i=0 to ubound(a)
text2.text=text2.text+"a("+i+")="+a(i)+chr(13)+chr(10)
next i

热心网友时间：2024-11-30 20:20

'放入数组
dim a
a=Split(text1.text," ")

'显示,先将TEXT2设为允许多行
text2..MultiLine = True
'再循环取数组的内容,每个数组显示一行
for i=lbound(a) to UBound(a)
text2.text=text2.text & a(i) & vbCrLf
next

热心网友时间：2024-11-30 20:20

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, " ")
Text2 = Join(a, " ")
End Sub

热心网友时间：2024-11-30 20:21

a()=Split("1010 0010 1101 1010 1010"," ")

Split专门用于这种用途。关于Split函数，您可以搜索相关的解释。

热心网友时间：2024-11-30 20:22

不好意思，没看明白