Forumz
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую, прошу вашего участия и помощи
есть текстовой файлик в котором есть такие строки:
0=11
1=134217729
2=it1
3=Basic
4=-1
6=,1,6,12,
9=512753125
10=524288000
13=9
14=3
19=5
Необходим VBS скрипт который по запросу пользователя, в данном случае - it1 (строка 2=it1) выводить строку 9 (9=512753125)
Нашел кое что, можно что-то из этого слепить?
{ Hайти строку }
var t:text; s,s1:string;
count:word;
begin
readln(s); { Вводим строку для поиска }
assign(t,'text.txt');reset(t);
s1:=''; count:=0;
while not eof(t) and (s<>s1) do begin
readln(t,s1); inc(count);
end;
writeln('искомая строка является ',count,' строкой в файле');
close(t);
end.
{ Hайти подстроку (слово) }
var
t:text;
s,s1:string;
count:word;
begin
readln(s); {вводим подстроку}
assign(t,'text.txt'); reset(t);
s1:=''; count:=0;
while not eof(t) and (pos(s,s1)=0) do begin
readln(t,s1);
inc(count);
end;
writeln('буквосочетание "',s,'" найдено в строке N ',count,':');
writeln(s1);
close(t);
end.
|
Всего записей: 31 | Зарегистр. 03-04-2008 | Отправлено: 10:28 01-09-2008 | Исправлено: Forumz, 10:56 01-09-2008 |
|
