(VB)Обработка символьных данных.
Задача такая(VB6): Из текста выбрать числа и записать в массив N. Количество чисел не более 10.
У меня проблема была такая, прога у меня перебирала все цифры и записовала в массив. Тоесть если бы я набрал текст: "Саша купил 25 яиц и потратил 125 рублей" то в массив бы у меня пошли цифры
2
5
1
2
5
А мне нужно что в массив записовались ЧИСЛА
25
125
ПОМОГИТЕ ПОЖАЛУЙСТА, извените что свой код не смог предоставить, в универе забыл, а защищать уже завтро.
У меня проблема была такая, прога у меня перебирала все цифры и записовала в массив. Тоесть если бы я набрал текст: "Саша купил 25 яиц и потратил 125 рублей" то в массив бы у меня пошли цифры
2
5
1
2
5
А мне нужно что в массив записовались ЧИСЛА
25
125
ПОМОГИТЕ ПОЖАЛУЙСТА, извените что свой код не смог предоставить, в универе забыл, а защищать уже завтро.
Я сам сталкивался с подобной проблемой. Примерно это должно выглядеть так:
st=1 ' первый пробел в строке
for j=1 to len(s) ' s - строка
if mid(s,j,1)=" " then
c=c+1:redim preserve chisla(c) ' изменение размера массива с
числами
chisla(c)=val(mid(s,st,j-st-1))
st=j+1
end if
next
Надеюсь, сработатет:) .
st=1 ' первый пробел в строке
for j=1 to len(s) ' s - строка
if mid(s,j,1)=" " then
c=c+1:redim preserve chisla(c) ' изменение размера массива с
числами
chisla(c)=val(mid(s,st,j-st-1))
st=j+1
end if
next
Надеюсь, сработатет:) .
Цитата: Xopkins
Задача такая(VB6): Из текста выбрать числа и записать в массив N. Количество чисел не более 10.
У меня проблема была такая, прога у меня перебирала все цифры и записовала в массив. Тоесть если бы я набрал текст: "Саша купил 25 яиц и потратил 125 рублей" то в массив бы у меня пошли цифры
2
5
1
2
5
А мне нужно что в массив записовались ЧИСЛА
25
125
ПОМОГИТЕ ПОЖАЛУЙСТА, извените что свой код не смог предоставить, в универе забыл, а защищать уже завтро.
У меня проблема была такая, прога у меня перебирала все цифры и записовала в массив. Тоесть если бы я набрал текст: "Саша купил 25 яиц и потратил 125 рублей" то в массив бы у меня пошли цифры
2
5
1
2
5
А мне нужно что в массив записовались ЧИСЛА
25
125
ПОМОГИТЕ ПОЖАЛУЙСТА, извените что свой код не смог предоставить, в универе забыл, а защищать уже завтро.
Предлагаю воспользоваться массивами - так короче код и быстрее работает:
Dim words() as String
dim s as string, i as long, sRet as string
s="Саша купил 25 яиц и потратил 125 рублей"
words=split(s," ") 'Разбиваем текст в массив по пробелам
for i=LBound(words) to ubound(words)
if isnumeric(words(i))=true then
sRet=sRet & words(i) & vbcrLf
end if
next i
msgbox sRet