Помогите вытащить строки из файла и дополнить их / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите вытащить строки из файла и дополнить их

16 сообщений из 16, страница 1 из 1

Помогите вытащить строки из файла и дополнить их

#34182293

stepochka

Гость

Может кто подскажет как сделать такое на vbscript
Есть html файл с примерно таким содержимым

Код: plaintext

href=\"http://www.site.ru/неизменяемый_каталог/изменяемый_каталог1/изменяемый_каталог2/\"...href=\"http://www.site.ru/неизменяемый_каталог/изменяемый_каталог3/изменяемый_каталог4/\"...href=\"http://www.site.ru/неизменяемый_каталог/изменяемый_каталог5/изменяемый_каталог6/\"

из этого файла нужно вытащить строки в другой txt файл что бы получились ссылки вида:

Код: plaintext

1.
2.

http://www.site.ru/неизменяемый_каталог/изменяемый_каталог1/изменяемый_каталог2/изменяемый_каталог2.zip
http://www.site.ru/неизменяемый_каталог/изменяемый_каталог3/изменяемый_каталог4/изменяемый_каталог4.zip
http://www.site.ru/неизменяемый_каталог/изменяемый_каталог5/изменяемый_каталог6/изменяемый_каталог6.zip

Я знаю что надо искать про "парсинг" и про "файл текст", искал, читал, но понял только как драть текст из файлов с какими нить статичными полями расположенными построчно..
И ещё не доходит как скопировать и дописать недостающуую часть изменяемый_каталогN.zip

...

Рейтинг:

0 / 0

07.12.2006, 10:27

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34182302

stepochka

Гость

Я извиняюсь, забыл написать что интересует реализация на vbscript

...

Рейтинг:

0 / 0

07.12.2006, 10:30

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34182635

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

Если ссылки и только ссылки обозначены символами " (доеточие), то можно использовать ф-цию
SPLIT в результате каждый второй элемент (если верить предоставленым данным) и будет искомое
Иначе придется использовать Регулярные выражения

I Have Nine Lives You Have One Only
THINK!

...

Рейтинг:

0 / 0

07.12.2006, 11:44

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34182954

AndreyMp

Участник

Откуда: Майкоп

Сообщения: 593

Рейтинг: 0 / 0

Насколько я понял, сплитить надо по ...href=\ или что там повторяется (не видно из примера).
Более бы полный входной файл посмотреть.

...

Рейтинг:

0 / 0

07.12.2006, 12:57

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183183

stepochka

Гость

Вот вырезка из файла

Код: plaintext

1.
2.

//--></script><script><!--
D(["mb","\n\n\n\n\n\n\n\n\n\n\n\n\n<div>  <div><strong><a href=\"http://site.ru/constanta/cat1/cat2/\" title=\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\"></a><small> / <a href=\"http://site.ru/constanta/cat1/\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\">\n\n  <br>  <div><strong><a href=\"http://site.ru/constanta/cat3/cat4/\" title=\"\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\"></a><small> / <a href=\"http://site.ru/constanta/cat3/\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\"></a></small></strong>\n\n  <small> / \n\n  </small> </div>\n\n  <div>/</div>\n\n  <br>  <div><strong><a href=\"http://site.ru/constanta/cat5/cat6/\" title=\"\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\"></a><small> / <a href=\"http://site.ru/constanta/cat5/\" target=\"_blank\" onclick=\"return top.js.OpenExtLink(window,event,this)\">
);

Таких блоков в файле тьма
Хотелось бы повыдёргивать ссылки вида http://site.ru/constanta/cat1/cat2/ и переделать их в http://site.ru/constanta/cat1/cat2/cat2.zip

Ссылки вида http://site.ru/constanta/cat1/ ненужны

...

Рейтинг:

0 / 0

07.12.2006, 13:43

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183208

stepochka

Гость

Строчку собрать у меня получилось (пример из хелпа про SubMatches)
Есть 2 нехороших НО : анализирется только первое вхождение в строке и пришлось принудительно удалить двойные кавычки

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Function SubMatchTest(inpStr)
  Dim oRe, oMatch, oMatches
  Set oRe = New RegExp
  oRe.Pattern = "http://site.ru/constanta/(\w+)\/(\w+)/" 
  Set oMatches = oRe.Execute(inpStr)
  Set oMatch = oMatches( 0 )
  retStr = retStr & "итоговая ссылка: http://site.ru/constanta/" & oMatch.SubMatches( 0 ) &"/" & oMatch. SubMatches( 1 ) & "/" & oMatch. SubMatches( 1 ) & ".zip"' xyzzy
  SubMatchTest = retStr
End Function

MsgBox(SubMatchTest("D([mb,\n\n\n\n\n\n\n\n\n\n\n\n\n<div>  <div><strong><a href=\http://site.ru/constanta/cat1/cat2/\ title=\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small> / <a href=\http://site.ru/constanta/cat1/\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\>\n\n  <br>  <div><strong><a href=\http://site.ru/constanta/cat3/cat4/\ title=\\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small> / <a href=\http://site.ru/constanta/cat3/\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a></small></strong>\n\n  <small> / \n\n  </small> </div>\n\n  <div>/</div>\n\n  <br>  <div><strong><a href=\http://site.ru/constanta/cat5/cat6/\ title=\\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small> / <a href=\http://site.ru/constanta/cat5/\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\>"))

...

Рейтинг:

0 / 0

07.12.2006, 13:49

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183509

stepochka

Гость

Теперь ищет все вхождения

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match in Matches   ' Iterate Matches collection.
   Set Match = Matches ( 0 )
       RetStr = RetStr & "итоговая ссылка: http://site.ru/constanta/" & Match.SubMatches( 0 ) &"/" & Match.SubMatches( 1 ) & "/" & Match.SubMatches( 1 ) &".zip"& VbCrLf

   Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("http://site.ru/constanta/(\w+)\/(\w+)/", "D([mb,\n\n\n\n\n\n\n\n\n\n\n\n\n<div>  <div><strong><a href=\http://site.ru/constanta/cat1/cat2/\ title=\target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small> / <a href=\http://site.ru/constanta/cat1/\target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\>\n\n  <br>  <div><strong><ahref=\http://site.ru/constanta/cat3/cat4/\ title=\\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small>/ <a href=\http://site.ru/constanta/cat3/\ target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a></small></strong>\n\n <small> / \n\n  </small> </div>\n\n  <div>/</div>\n\n  <br>  <div><strong><a href=\http://site.ru/constanta/cat5/cat6/\ title=\\target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\></a><small> / <a href=\http://site.ru/constanta/cat5/\target=\_blank\ onclick=\return top.js.OpenExtLink(window,event,this)\>"))

А кто подскажет как быть с двойными кавычками в исходной строке? Удалять из файла не хотелось бы

...

Рейтинг:

0 / 0

07.12.2006, 14:52

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183608

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

stepochka

А кто подскажет как быть с двойными кавычками в исходной строке? Удалять из файла не хотелось бы

просто ставится две ковычки
т.е. f = "проба""с"
msgbox f
выведет проба"с

...

Рейтинг:

0 / 0

07.12.2006, 15:12

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183630

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

oRe.Pattern = """http://site.ru/constanta/(\w+)\/(\w+)/"""

...

Рейтинг:

0 / 0

07.12.2006, 15:16

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183808

stepochka

Гость

не не получется у меня функции передать второй аргументы с "
Например:

Код: plaintext

1.
2.

Function RegExpTest(patrn, strng)
patrn=http://site.ru/constanta/(\w+)\/(\w+)/
strng=D(["mb",<a href=\"http://site.ru/constanta/cat1/cat2/"\ (В таком виде строка присутсвуетв файле)

При вызове после замены переменных на их значения получается:

Код: plaintext

RegExpTest("http://site.ru/constanta/(\w+)\/(\w+)/", "D(["mb",<a href=\"http://site.ru/constanta/cat1/cat2/"\"))

Сколько б я кавычек у второго аргумента в начале и в конце не ставил, выдаёт ошибку

...

Рейтинг:

0 / 0

07.12.2006, 16:00

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34183959

stepochka

Гость

Я уж незнаю интересно ли будет кому, но я таки дочитал хелп, и всё сделал что хотел =)
Всем огромное спасибо!!!

Код: plaintext

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.

Dim Args 'Параметры - исходный и конечный файл
Dim fso 'File System object - объект для доступа к файловой системе
Dim file_in ' входной файлы
Dim file_out ' выходной файл
Dim tmp_s ' временная строчка
Set Args = WScript.Arguments
if Args.Count< 2  then
  Wscript.Echo "Надо задать два файла"
  set Args=Nothing
  WScript.Quit  1 
end if

Set fso = CreateObject("Scripting.FileSystemObject")

Set file_in = fso.OpenTextFile(Args( 0 ),  1 , True) '1- ForReading
Set file_out = fso.OpenTextFile(Args( 1 ),  2 , True) '2 - forWriting

while (not file_in.AtEndOfStream)
   tmp_s=""
   tmp_s=file_in.Readline()
   tmp_s= Replace (tmp_s, Chr( 34 ), "")
   tmp_s= RegExpTest("http://site.ru/constanta/(\w+)\/(\w+)/", tmp_s)
   If Not tmp_s="" then file_out.Writeline(tmp_s)
Wend
file_in.close
file_out.close
set file_out=Nothing
set file_in=Nothing

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match In Matches   ' Iterate Matches collection.
   'Set Match = Matches (0)
       RetStr = RetStr & "итоговая ссылка: http://site.ru/constanta/" & Match.SubMatches( 0 ) &"/" & Match.SubMatches( 1 ) & "/" & Match.SubMatches( 1 ) &".zip"& VbCrLf

   Next
   RegExpTest = RetStr
End Function

...

Рейтинг:

0 / 0

07.12.2006, 16:36

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34184365

stepochka

Гость

Господа, а может кто ещё подскажет как этот скрипт заставить самому лезть на http://site.ru/ и собирать информацию непосредсвенно со страничек

...

Рейтинг:

0 / 0

07.12.2006, 18:32

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34184966

stepochka

Гость

Как заставить скрипт лазить на сайт я разобрался.
А вот как сделать так что бы при выполнении file_out.Writeline(string) запись в файл производилась на каждой строке, а не через строку как это делается сейчас

...

Рейтинг:

0 / 0

08.12.2006, 07:08

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34185325

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

Вероятно в конце строки у вас стоит символ новой строки
и поэтому надо использовать не WriteLine, а Write (если конечно есть такой метод), либо символ обрубать

I Have Nine Lives You Have One Only
THINK!

...

Рейтинг:

0 / 0

08.12.2006, 10:30

| Ответить | Цитировать | Написать

Помогите вытащить строки из файла и дополнить их

#34185540

stepochka

Гость

HandKotВероятно в конце строки у вас стоит символ новой строки
Точно! Огромное спасибо, проглядел

...

Рейтинг:

0 / 0

08.12.2006, 11:20

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Помогите вытащить строки из файла и дополнить их

#36352705

Andreas_84

Участник

Откуда: Одесса

Сообщения: 368

Рейтинг: 0 / 0

stepochkaHandKotВероятно в конце строки у вас стоит символ новой строки
Точно! Огромное спасибо, проглядел

Хорошая прога есть для этого дела!!
Easy file Editor
Полезная ссылка.Find & Replace Examle
Полезная ссылка.Синтаксис регулярных выражений

...

Рейтинг:

0 / 0

07.12.2009, 18:35

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите вытащить строки из файла и дополнить их

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34184365&tid=2160325]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	10ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	14ms

total:	146ms