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

← →
@gent © (2007-02-15 18:07) [0]

Народ, помогите ! Вопрос ламовский, но очень сильно поджимает время. Мне надо нужный символ вставить в нужное место строки. Тоесть

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

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

← →
Джо © (2007-02-15 18:29) [1]

>
> Мне надо например во вторую строку после цифры вставить
> символ @.

Insert

← →
Desdechado © (2007-02-15 18:43) [2]

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

← →
@gent © (2007-02-15 20:20) [3]

желательно сказать "вместо" и "раздвинуть"
По поводу Insert - можно поточнее ?

← →
Джо © (2007-02-15 20:32) [4]

> [3] @gent © (15.02.07 20:20)
> По поводу Insert - можно поточнее ?

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

← →
default © (2007-02-15 20:34) [5]

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

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

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

:)

← →
@gent © (2007-02-15 20:43) [6]

очень сильно поджимает время
Просто некогда лазеть в help"e , причем в англиском я далеко не спец

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

← →
RASkov (2007-02-15 20:45) [7]

> [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:54) [8]

Пасиб, уже что-то. Теперь понял. Тока вот еще вопросик остался. У меня есть файл. Я не знаю номера строки. Я знаю тока кусок строки, вот после этого куска мне и надо вставить, т.е. !@# 1234567890 , в этой строке мне надо вставить после символа #, тока вот номер строки не знаю. Как мне поиск забить и найти номер строки ?

← →
Desdechado © (2007-02-15 21:23) [9]

> желательно сказать "вместо" и "раздвинуть"
Желательно ответить на вопрос.

← →
@gent © (2007-02-15 21:26) [10]

Так я его и задал.

← →
RASkov (2007-02-15 21:27) [11]

> [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 © (15.02.07 21:26) [10]
> Так я его и задал.
Это я задал тебе вопрос. Может, тебе не интересен ответ на твой?
Тогда умничай дальше.

> RASkov

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

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

asd fghjkl
1234567890
oiwefsodnfsdjkfns

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

asd fghjkl
123.4567890
oiwefsodnfsdjkfns

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

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

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

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

← →
RASkov (2007-02-15 22:07) [14]

> [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;

Большое пасиба !

Ламовский вопрос по текстовым файлам. Найти похожие ветки