| |
автор: Hall9000 (04.07.2006 в 00:00) |
|
| | Можно ли стоку NMTEX28E50R125885
преобразовать простым способом в строку N M T E X 2 8 E 5 0 R 1 2 5 8 8 5
может быть функция Format ? хотя я пересмотрел. Может я плохо глядел? | |
| |
| |
| |
автор: osmor (04.07.2006 в 00:00) |
|
| | в лоб Public Function InsertSpace(strSource As String) As String
Dim strRez As String
Dim i As Integer
For i = 1 To Len(strSource)
strRez = strRez & Mid(strSource, i, 1) & " "
Next
InsertSpace = Trim(strRez)
End Function | |
| |
| |
| |
автор: osmor (04.07.2006 в 00:00) |
|
| | хотя лучше длинну определить один раз.... Dim strRez As String
Dim i As Integer
dim intL as Integer
intL = Len(strSource)
For i = 1 To intL
strRez = strRez & Mid(strSource, i, 1) & " "
Next
InsertSpace = Trim(strRez) | |
| |
| |
| |
автор: Hall9000 (05.07.2006 в 00:00) |
|
| | Re: хотя лучше длинну определить один раз.... Да, еще забыл малось...
Строка в исходном виде: nmtex28e50r125885
Модифицировав код, получилось:
Dim strRez As String
Dim i As Integer
dim intL as Integer
intL = Len(strSource)
For i = 1 To intL
strRez = strRez & Ucase(Mid(strSource, i, 1)) & " "
Next
InsertSpace = Trim(strRez)
на выходе получилось то, что надо: N M T E X 2 8 E 5 0 R 1 2 5 8 8 5
Спасибо. | |
| |
| |
