Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ламовский вопрос по текстовым файлам. [D7]

@gent © (2007-02-15 18:07:00)
Народ, помогите ! Вопрос ламовский, но очень сильно поджимает время. Мне надо нужный символ вставить в нужное место строки. Тоесть

фывфывофлыовифлыовиф
1234567890

Мне надо например во вторую строку после цифры вставить символ @.
Просто некогда лазеть в help'e , причем в англиском я далеко не спец. Я пишу программу которая будет создавать тесты, если у кого нить есть что похожее, то прошу выслать на E.M.I.Agent@GMail.com или киньте ссылку сдесь.
Заранее спасибо !

@gent (2007-02-15 22:16:00) [1]
Большое пасиба !

RASkov (2007-02-15 22:07:00) [2]
> [13] @gent © (15.02.07 21:47)

Вариантов кучу можно привести, смысл в [11]...
вот примерно так можно: var S, S1: String; N, NPos: Integer; begin ListBox1.Items.LoadFromFile('...\filename.txt'); S1:= '123'; for N := 0 to ListBox1.Items.Count-1 do begin S:=ListBox1.Items[N]; NPos:=Pos(S1, S); if NPos>0 then begin Insert('.', S, NPos+Length(S1)); ListBox1.Items[N]:=S; end; end; end;

@gent (2007-02-15 21:47:00) [3]
> RASkov

В упор не понял что надо вставить?... куда надо?..

Допустим у меня есть файл (текстовый). Я не знаю номера строки. Я знаю только кусочек строки после которого надо вставить нужный символ.
Например:

asd fghjkl
1234567890
oiwefsodnfsdjkfns

Мне известен кусочек - это допустим 123 (т.е. номера строки не известно). Мне надо после него вставить допустим точку "."
И чтобы в конце получился у меня ответ

asd fghjkl
123.4567890
oiwefsodnfsdjkfns

>Desdechado
Это я задал тебе вопрос. Может, тебе не интересен ответ на твой?
Тогда умничай дальше.

Я тебя не понял :), я просто хотел спросить и то и другое.

Вставить вместо или раздвинув?

И не умничаю я, просто тебя не понял.

Desdechado (2007-02-15 21:32:00) [4]
> @gent © (15.02.07 21:26) [10]
> Так я его и задал.
Это я задал тебе вопрос. Может, тебе не интересен ответ на твой?
Тогда умничай дальше.

RASkov (2007-02-15 21:27:00) [5]
> [8] @gent © (15.02.07 20:54)

В упор не понял что надо вставить?... куда надо?...
Ты более конкретней объясни или покажи как делаешь, иначе тебе сейчас навставляют :)

var S: String; N: Integer;
begin
S:= '# 1234567890';
N:=Pos('#',S);
if N>0 then Insert('@', S, N+1);
ShowMessage(S);
end;

@gent (2007-02-15 21:26:00) [6]
Так я его и задал.

Desdechado (2007-02-15 21:23:00) [7]
> желательно сказать "вместо" и "раздвинуть"
Желательно ответить на вопрос.

@gent (2007-02-15 20:54:00) [8]
Пасиб, уже что-то. Теперь понял. Тока вот еще вопросик остался. У меня есть файл. Я не знаю номера строки. Я знаю тока кусок строки, вот после этого куска мне и надо вставить, т.е. !@# 1234567890 , в этой строке мне надо вставить после символа #, тока вот номер строки не знаю. Как мне поиск забить и найти номер строки ?

RASkov (2007-02-15 20:45:00) [9]
> [6] @gent © (15.02.07 20:43)

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
begin
S:='1234567890';
Insert('Opps', S, 5);
ShowMessage(S);
end;
Я не въехал куда надо вставить собаку

@gent (2007-02-15 20:43:00) [10]
очень сильно поджимает время
Просто некогда лазеть в help'e , причем в англиском я далеко не спец

Я попросил привести пример. На счет help'a я и без этого знал.

default (2007-02-15 20:34:00) [11]

> Джо © (15.02.07 20:32) [4]

Джо, ты невнимательно прочитал

> Просто некогда лазеть в help'e ,

:)

Джо (2007-02-15 20:32:00) [12]
> [3] @gent © (15.02.07 20:20)
> По поводу Insert - можно поточнее ?

Куда уж точнее, набираем Insert и нажимаем F1. И три несчастных параметра этой процедуры станут ясны, как день.

@gent (2007-02-15 20:20:00) [13]
желательно сказать "вместо" и "раздвинуть"
По поводу Insert - можно поточнее ?

Desdechado (2007-02-15 18:43:00) [14]
Вставить вместо или раздвинув?

Джо (2007-02-15 18:29:00) [15]
>
> Мне надо например во вторую строку после цифры вставить
> символ @.

Insert

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »