Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Разбить строку на подстроки и поместить в массив / 9 сообщений из 9, страница 1 из 1
03.10.2006, 01:42
    #34027379
andron123
andron123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
Доброго времени суток!
Пишу на VBScript-e, не .net
Подскажите плз как мне сделать разбивку.
Есть строка, полученная из рекордсета:
RecUsers=dsTemp("RecList")
В RecUsers попадают данные из поля таблицы в виде:
Иванов <ivanov>; Петров <petrov>;VbCrLf
Сидоров <sidorov>;VbCrLf
Васечкин <vasechkin>; Петрушкин <petrushkin>; Зюзин <zuzin>;VbCrLf

где VbCrLf соответственно невидимый символ переноса строки(он в базе).
То есть по сути это 3 подстроки в одной строке, одном поле БД.

У меня задача перебирать каждую подстроку в цикле и проверять значение каждой подстроки на совпадение на определенное слово.
Вопрос - как мне записать каждую подстроку моей большой строки в отдельные элементы массива с разбиением по VbCrLf?
То есть на выходе должно получиться:
a(0)="Иванов <ivanov>; Петров <petrov>;"
a(1)="Сидоров <sidorov>;"
a(2)="Васечкин <vasechkin>; Петрушкин <petrushkin>; Зюзин <zuzin>;"

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2006, 15:31
    #34029097
andron123
andron123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
неужели нет никаких мыслей? может другие варианты реализации есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2006, 16:47
    #34029423
Paulmay
Paulmay
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
Сказал бы, как, но не знаю VBScript...

Что такое VbCrLf?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2006, 17:58
    #34029659
bobikov_aj
bobikov_aj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
А VBScript поддерживает регулярные выражения? Если да, то через них.С уважением, Бобиков А.Ю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2006, 23:33
    #34030194
andron123
andron123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
Спасибо, что проявили интерес к топику :)
VbCrLf - это символ перехода на новую строку. Специальная константа vb, позволяющая определить переход на новую строку.

VBScript - урезанная версия VB, для него справидливо почти все, что есть в VB.

Да, регулярные выражения должен поддерживать, только как через них делать незнаю, может намекнете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 01:51
    #34030280
vladgrig
vladgrig
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
х.з. как там правильно в vb (не .net) но в регах твой VbCrLf (как знак переноса строки) будет выглядеть вот так - \r\n
соответственно регулярное выражение будет примерно таким - (.*)?\r\n
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 12:35
    #34031213
papuas
papuas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim str
str = "one" & vbCrLf & "two" & vbCrLf & "three"
' Количество вхождений переноса строки
Dim c
c = (Len(str) - Len(Replace(str, vbCrLf, ""))) / Len(vbCrLf)

c = c + 1
' Собственно массив
Dim arr
arr = Split(str, vbCrLf)

For c =  0  To UBound(arr)
	MsgBox arr(c)
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 12:38
    #34031223
papuas
papuas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
Даже можно так проще
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim str
str = "one" & vbCrLf & "two" & vbCrLf & "three"

Dim arr
arr = Split(str, vbCrLf)

Dim c
For c =  0  to UBound(arr)
	MsgBox arr(c)
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.10.2006, 15:45
    #34032216
andron123
andron123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбить строку на подстроки и поместить в массив
спасибо большое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Разбить строку на подстроки и поместить в массив / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]