нид хелп по VB6
 

Здравствуйте!
есть проблема, пожалуйста помогите решить ее.

незнаю как зделать следующее:
пример, из текста нужно зделать совокупность цифер. Пример:
текст: "Надежный межсетевой экран (firewall) для обеспечения безопасного"
результат: "8 10 5 10 3 11 11"
Т.е. разбивает предложение на совокупность символов между пробелами и сумирует их а потом создает придложение из этих цифр, которые располагаються в таком же порядке как и совокупность символов в предложении через пробел, которые отделяються между собой пробелом :)

Помогите!

Ответ: нид хелп по VB6
 

вот накатал, ты вроде для vb6 просил , хотя топик по с++ (на сях что то лень писать...):

Sub main()

Dim str As String 'входящая строка
str = "Надежный межсетевой экран (firewall) для обеспечения безопасного"
Dim strResult As String 'результирующая строка
strResult = ""
Dim begin As Long 'начало отсчета в строке для каждого цикла
begin = 1
Dim num As Long 'возврат функции inStr()

Do
num = InStr(begin, str, " ", 1)
If num = 0 Then
If strResult = "" Then ' проверка от лишних пробелов
strResult = Len(Mid(str, begin))
Else
strResult = strResult & " " & Len(Mid(str, begin))
End If
Else
If strResult = "" Then ' проверка от лишних пробелов
strResult = num - begin
Else
strResult = strResult & " " & num - begin
End If

End If

begin = num + 1
Loop While num <> 0
MsgBox strResult
Debug.Print strResult
End Sub

Відповідь: нид хелп по VB6
 

:) спасибо огромное!