держать ноль в VBA - PullRequest
Новая
       13

держать ноль в VBA

0 голосов
/ 14 октября 2018

Я создаю приложение VBA, когда я ввожу номер, я хочу получить то же самое, но в пакетах (например: я ввожу 12000244, я получу 1200 0244), но у меня есть проблема, что я потерял левый ноль (Я получил 1200 244).поэтому, если у любого тела есть решение, пожалуйста.

это мой код: 

Dim renvoie As String
renvoie = ""
For i = taille - 1 To 0 Step -1
    If i <> 0 Then
        renvoie = renvoie + CStr(tableau(i)) + " "
    Else
        renvoie = renvoie + Left(attention, 5 - Len(tableau(i))) + CStr(tableau(i)) + " "
        MsgBox tableau(i)
    End If
    taille = taille - 1
Next i
text_resultat.Caption = CStr(renvoie)

End Sub

Ответы [ 2 ]

0 голосов
/ 14 октября 2018

использование Формат () функция: 

format("12000244", "0000 0000") ' returns string "1200 0244"
0 голосов
/ 14 октября 2018

Этот цикл For Next выглядит немного странно, особенно когда вы изменяете taille внутри цикла.Также трудно понять, что представляют собой все ваши переменные, так как объявления не приведены в вашем коде.

Если вы хотите добавить пробел в текст известной длины и в известной точке, тогдакод в основном это просто: 

Dim sampleNumAsStr As String, result As String
Dim splitPoint As Long

sampleNumAsStr = "12000244"
splitPoint = 4

result = Left(sampleNumAsStr, splitPoint) & " " & _
         Right(sampleNumAsStr, Len(sampleNumAsStr) - splitPoint)
...