VBS: Удаление слов между первой запятыми

[DIMMon]

Здравствуйте! Нужна помощь в решении задачи:
в каждой строке надо удалить слова между 1-ой и 2-ой, 2-ой и 3-й запятыми. Возможно ли это сделать на VBS?

[Хакер]

Можно.

[DIMMon]

А можно подсказать как?

[alibek]

Split/Join.

[Qwertiy]

Я бы регулярные выражения применил. (Вроде, в VBS они есть?)
При желании можно и через InStr сделать.
А вариант со Split-Join мне не нравится - там ещё пляска с выкидыванием элементов и ресайзом массива будет.

[alibek]

там ещё пляска с выкидыванием элементов и ресайзом массива будет.

Какая еще пляска?
Ресайз вообще не нужен, достаточно обнулить элемент массива.

[DIMMon]

кто-нибудь может привести пример двух вариантов, чтобы определиться?

[Qwertiy]

Ресайз вообще не нужен, достаточно обнулить элемент массива.

Если запятые надо оставить - то да, просто присвоить пустые строки.
А вот если тоже удалить, как я подумал сначала, то придётся постараться.

кто-нибудь может привести пример двух вариантов, чтобы определиться?

Я не помню, как в VBS делаются регулярки. Заменя такая (javascript): "123,456,789,012,345,678".replace(/^([^,]+),[^,]+,[^,]+,/, "$1,,,"), результат: 123,,,012,345,678
С InStr всё просто, только надо аккуратно просчитать индексы. В InStr можно последним параметром передавать позицию, откуда искать - вот туда передать позицию запятой плюс 1. Ну и аккуратненько это Mid$'ом повырезать и объединить.

[DIMMon]

А что вариант на VBS никто не сможет предложить? Ну подскажите тогда как заменить все слова из списка в файле на пустые ? Ну очень надо очистить файл от ненужных данных.

[Mikle]

вариант на VBS никто не сможет предложить?

InStr, Mid$ - это всё как раз на VBS.

Ну подскажите тогда как заменить все слова из списка в файле на пустые ? Ну очень надо очистить файл от ненужных данных.

Открываешь файл в блокноте, там есть функция замены одних слов на другие.
Только тебе на самом деле это не надо, тебе надо курсовик решить, а ты тут кого-то обмануть пытаешься.

[Qwertiy]

тебе надо курсовик решить, а ты тут кого-то обмануть пытаешься

С каких пор скрипта на десяток строк для этого достаточно?

[ALX_2002]

Один из вариантов решения.

Код: Выделить всё

Option Explicit
Dim s, a
s = "1,2,3,4,5,6,7"
'Делим строку по запятым и получаем массив.
a = Split(s, ",")
'Заменяем на пустоту элементы 1 и 2 так как отсчёт идёт с нуля
a(1) = ""
a(2) = ""
'Собираем строку обратно
s = Join(a, ",")
MsgBox s