进就加分！！

Question

我有个问题就是字符串的问题，有一批数据，全是有；在前面
如：　;200  ;300  ;400 ;20.3 ;5002.4
怎么去掉前面的；而得后面的数字呢？
用mid或者right的怎么写

Answer 1

str=";200"mystr=right(str,3)或mystr=replace(str,";","")

Answer 2

split一下就可以把所有的数得到了，如果要用mid,right还要麻烦些，还要用instr依次判断;的位置

Answer 3

split 怎么写？如果字符串是aa的话？

Answer 4

不过我的Rose2007() 的replace(str,";","")
Dlugger() 的split不知怎么用。

Answer 5

用replace 也是可以一下就得到了
下面这是用mid得到的
Dim Str As String
Dim AA As Integer
Str = ";200  ;300  ;400 ;20.3 ;5002.4"
AA = InStr(Trim(Str), ";")
Do While AA = 1
    Str = Mid(Trim(Str), AA + 1)
    AA = InStr(Trim(Str), ";")
LoopDo While AA > 0
    Str = Mid(Trim(Str), 1, AA - 1) & Mid(Trim(Str), AA + 1)
    AA = InStr(Trim(Str), ";")
Loop
Me.Text1.Text = Str

Answer 6

你用replace不是把所有的数字弄成一个串了吗？用split直接就分成一个字符数组，每个数字都分开了。
Dim Str As String
Dim AA
Str = ";200  ;300  ;400 ;20.3 ;5002.4"
AA = Split(Str, ";")这样AA(0)="",AA(1)="200",AA(2)="300",AA(3)="400",AA(4)="20.3",AA(5)="5002.4"
不是更方便使用吗？