如何截断字符串的开头

时间:2019-08-29 17:26:12

标签: vba string

有没有一种方法可以截断仅具有一定数量“ 0”的字符串的开头?如何删除(一些)前导零?

数据库值如下:

|col_id|
|------|
|000001|
|01    |
|000c00|

我希望能够;第一行得到; 1,第二排; 01,第三行0c00

我尝试使用string.TrimStart("0"c),但是我需要能够动态截断字符串。

1 个答案:

答案 0 :(得分:0)

老派:使用Mid函数运行在角色上并实现一些逻辑,即使它负担得起。编程并非一直都只是从网上复制内容;)

Function data_wash(ByVal h As String) As String
Dim t As String
Dim i As Long

    A="0123456789.-"'allowed chars
    For i = 1 To Len(h)
        c = Mid(h, i, 1)
        If InStr(A, c) > 0 Then
            OUT = OUT & t
        Else
            OUT = OUT & " "
        End If
    Next

data_wash = OUT
End Function