VPF::Почему не работает Split? - Форум программистов

korob2001

Дата 25.11.2004, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Есть такая проблема.
Допустим есть переменная строкового типа, её нужно разбить посимвольно и сохранить в массив.
На Perl это будет выглядеть так:

Код


my $str = "Hello, world!";
my @chars = split("", $str);

ОК. На VB пишу такой код:

Код


Option Explicit
Dim strMy As String
Dim charsMy() As String

Private Sub Form_Load()
        strMy = "Hello, world!"
End Sub

Private Sub Command1_Click()
        Dim i As Integer
        charsMy() = Split(strMy, "")
        For i = 0 To UBound(charsMy)
            Debug.Print charsMy(i)
        Next i
End Sub

Отсюда видно, что массив состоит из одного элемента, в котором содержится вся строка.
Почему так? :||||||

Заранее спасибо,
Денис

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

boevik

Дата 26.11.2004, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

В VB split работает по другому. Описано в MSDN.

--------------------

Никогда не говори никогда

cardinal

Дата 26.11.2004, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Цитата(korob2001 @ 25.11.2004, 22:20)

Почему так?

Потому, что второй параметр у split это разделитель. Он у тебя равен "" - вот и не делится у тебя строка.
Читаем (как всегда MSDN smile

Цитата

Split function
...
delimiter

Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.

Можешь написать так:

Код


Option Explicit

Dim strMy As String
Dim charsMy() As String

Private Sub Form_Load()
       strMy = "Hello, world!"
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    Dim strNewMy As String
    For i = 1 To Len(strMy)
        If Mid(strMy, i, 1) <> " " Then strNewMy = strNewMy & Mid(strMy, i, 1)
        strNewMy = strNewMy & " "
    Next
    strNewMy = Trim(strNewMy)
    charsMy() = Split(strNewMy, " ")
    For i = 0 To UBound(charsMy)
        Debug.Print charsMy(i)
    Next i
End Sub

Возможно можно и покрасивей написать...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

korob2001

Дата 27.11.2004, 04:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

To boevik
Сегодня только инет подключил, теперь буду MSDN юзать. ;)))

cardinal
Спасибо, то что нужно.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

cardinal

Дата 27.11.2004, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Цитата(korob2001 @ 27.11.2004, 03:40)

Сегодня только инет подключил, теперь буду MSDN юзать. ;)))

MSDN есть и на диске...

--------------------

korob2001

Дата 27.11.2004, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Цитата

MSDN есть и на диске...

Точнее сказать, он там должен быть. ;)))) Но у меня нет MSDN. После установки Visual Basic, перезагружаю комп и запускаю повторно инсталяцию. Жму кнопку "Установить MSDN", на что получаю сообщение "Вставьте второй диск". Проблема в том, что у меня только один диск. smile

((

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

cardinal

Дата 27.11.2004, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Цитата(korob2001 @ 27.11.2004, 20:08)

Проблема в том, что у меня только один диск.

Понимаю

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »