Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3954 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
us0r



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день
Есть текстовый файл, в файле текст формата

Код:
a1b2c-a1b2c-a1b2c-a1b2c-a1b2c A1B2C-A1B2C-A1B2C-A1B2C-A1B2C

 
Есть код:

Код:
Do until fstargetfile.AtEndOfStream
    curString= fstargetfile.ReadLine
    if InStr(curString, dictInfo("ID_1")) <> 0 Then
        a=Split(curString," ",1)
        WScript.Echo a(0)
    End If
    if InStr(curString, dictInfo("ID_2")) <> 0 Then
        b=Split(curString," ",1)
        WScript.Echo b(0)
    End If
Loop

 
В ID_1/ID_2 содержится строка, которая ищется в файле. При совпадении ожидается, что строка берётся, разбивается, и первая часть строки сохраняется в a(0) (Split, по идее же, возвращает массив). Но чёта оно не работает, т.е. в a(0) попадает целая строка, массив состоит из одного элемента.
Вопрос: что не так- то?

Всего записей: 388 | Зарегистр. 06-12-2007 | Отправлено: 12:25 26-09-2021 | Исправлено: us0r, 12:26 26-09-2021
Tilks

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
us0r

Цитата:
 Но чёта оно не работает, т.е. в a(0) попадает целая строка, массив состоит из одного элемента.

вы же сами прописали 1 в Split(curString," ",1)
 
надо a=Split(curString," ",-1)
или так как всё по умолчанию a=Split(curString)
 

Код:
Dim curString
curString = "a1b2c-a1b2c-a1b2c-a1b2c-a1b2c A1B2C-A1B2C-A1B2C-A1B2C-A1B2C"
'a=Split(curString," ",-1)
a=Split(curString)
WScript.Echo a(0)
WScript.Echo a(1)  

Всего записей: 2653 | Зарегистр. 14-08-2005 | Отправлено: 13:13 26-09-2021
us0r



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот код, под спойлером
Спойлер
Вывод
   
Ссылка
 
Тестовый файл:
Ссылка
 
UPD:
Кажется я понял, где и что я делаю не так
 
UPD2:
Вот так заработало (массив не с нуля начинается, чтоли):

Код:
Do until fsInfo1File.AtEndOfStream
    curString= fsInfo1File.ReadLine
    if InStr(curString, dictInfo("ID_1")) <> 0 Then
        'WScript.Echo curString
        a=Split(curString," ",-1)
        WScript.Echo a(1)
    End If
    if InStr(curString, dictInfo("ID_2")) <> 0 Then
        'WScript.Echo curString
        b=Split(curString," ",-1)
        WScript.Echo b(1)
    End If
Loop

Всего записей: 388 | Зарегистр. 06-12-2007 | Отправлено: 14:02 26-09-2021 | Исправлено: us0r, 14:33 26-09-2021
us0r



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
UPD: Разобрался. WinNT- case sensetive
 
Пост бы удалить

Всего записей: 388 | Зарегистр. 06-12-2007 | Отправлено: 15:46 30-09-2021 | Исправлено: us0r, 15:55 30-09-2021
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru