Работа со строками.

← →
Sveta_MGDIT (2007-02-08 13:45) [0]

Добрый день. Пишу диплом...и понимаю, что сделала ошибку, что поступала сюда...:)) вопрос следующий как я могу из строки
"Любоеслово №600 Ещеразлюбоеслово" в новую переменую вырезать число в данном примере 600.Очень помогли бы...Спасибо.

← →
Kolan © (2007-02-08 14:15) [1]

Pos, Copy + F1
или
Ищи про регулярные выражения...

ЗЫ
Диплом по строкам? :)

← →
Sveta_MGDIT (2007-02-08 14:46) [2]

да нет не по строка...диплом не мой....хочу подделать немного....
я пробовала и даже знаю что такое pos и copy но все равно не получилось...

← →
Vlad Oshin © (2007-02-08 14:53) [3]

>
> знаю что такое pos и copy

а что такое pos и copy?
скажИте по русски, как понимаете назначение и приведИте код, как
> я пробовала

скАжите, приведЕте - помощь точно будет.

← →
Johnmen © (2007-02-08 14:58) [4]

> Vlad Oshin © (08.02.07 14:53) [3]
> ... помощь точно будет.

Да-да! Если бы не Света, а, напр. Вася, то уже огрёб бы по самое-самое!
:))

← →
Sveta_MGDIT (2007-02-08 15:03) [5]

Так надо мной глумятся….это плохо….да действительно с ошибочками писала,…попробую исправиться…:) и так
Pos(“$”,s)
Где S это моя строка, а к кавычках искомый символ $ возвращает номер искомого символа.
Copy(s,1,5) вырезает с первого по 5 символ с моей строки S.
Я, конечно, не очень грамотно написала ну я думаю, что вы должны понять, что я понимаю…итак я могу найти начало моего числа т.к. там стоит символ, № а вот конец не могу.
b := Copy(s, Pos(" №", s)+1,???????);

← →
Sveta_MGDIT (2007-02-08 15:07) [6]

Vlad Oshin © вы обещали помощь....:)

← →
Vlad Oshin © (2007-02-08 15:11) [7]

> Johnmen © (08.02.07 14:58) [4]

не совсем так :)
про инет панибратство( и ники женские, как наиболее располагающие к помощи) читал. Скажу больше, на меня они действуют в обратном порядке. Еще не дай бог такая все сдаст и потом в начальницы попадет(где, тоже читал, не профессионализм, а стремление руководить главное ну, и т.п.)... а ко мне, если в начальницы...оо...

Просто, надо помочь же?
хотя, на мыло посмотрел :)

← →
Vlad Oshin © (2007-02-08 15:15) [8]

> я могу найти начало моего числа т.к. там стоит символ, №
> а вот конец не могу.

конец.. - он ищется просто :)
т.к. это число, то следующий символ за ним уже не будет цифрой. Значит, надо поискать ..
и потом
b := Copy(s, Pos(" №", s)+1,найденное);

← →
Desdechado © (2007-02-08 15:16) [9]

> а вот конец не могу.
там, очевидно, пробел разделителем выступает

← →
Правильный Вася (2007-02-08 15:16) [10]

> Пишу диплом...и понимаю, что сделала ошибку, что поступала сюда

пять лет доходило? мдя

← →
Sveta_MGDIT (2007-02-08 15:17) [11]

> Vlad Oshin © (08.02.07 15:11) [7]

А как ты сам думаешь, человек с моими знаниями в области программирования может стать начальником??? Да я даже устроиться обычным рядовым программистом не смогу..:). я уже давно поняла, что это не мое, но решила до учится до конца ...так…для галочки…на самом деле я занимаюсь совсем другим видом деятельности ….и еще если ты не веришь, что я девушка или ты не хочешь мне помочь, то не нужно ничего писать…просто прошел бы мимо….и никаких проблем

З.Ы.

> Скажу больше, на меня они действуют в обратном порядке

Ты гей???

← →
sniknik © (2007-02-08 15:17) [12]

> Да-да! Если бы не Света, а, напр. Вася, то уже огрёб бы по самое-самое!
да это и есть Вася, но он ищет конец!!! ;о)

> а вот конец не могу.
и где ты его ищеш?
Start:= Pos("№", s) + 1;
Len:= PosEx(" ", s, Start) - Start;
b := Copy(s, Start, Len);

только это всего лиш частный случай... (приведенный пример)

← →
Sveta_MGDIT (2007-02-08 15:19) [13]

ладно, к вам обратилась за помощь вы начинаете, глумится...типа самые умные... не хотите не помогайте....модератор закройте тему!!!!

← →
sniknik © (2007-02-08 15:19) [14]

> А как ты сам думаешь, человек с моими знаниями в области программирования может стать начальником???
легко!!! начальство обычно не умеет программировать, только командует. даже кто из программистов вышел вскоре все забывают, т.е. это для них лишнее, атавизм.

← →
Johnmen © (2007-02-08 15:20) [15]

> Sveta_MGDIT (08.02.07 15:17) [11]
> ….и еще если ты не веришь, что я девушка

Фотку давай, да...:)

← →
Sveta_MGDIT (2007-02-08 15:20) [16]

> sniknik © (08.02.07 15:17) [12]
> > Да-да! Если бы не Света, а, напр. Вася, то уже огрёб бы
> по самое-самое!
> да это и есть Вася, но он ищет конец!!! ;о)
>
> > а вот конец не могу.
> и где ты его ищеш?
> Start:= Pos("№", s) + 1;
> Len:= PosEx(" ", s, Start) - Start;
> b := Copy(s, Start, Len);
>
> только это всего лиш частный случай... (приведенный пример)

спасибо....

← →
Sveta_MGDIT (2007-02-08 15:22) [17]

> Johnmen © (08.02.07 15:20) [15]
>
> > Sveta_MGDIT (08.02.07 15:17) [11]
> > ….и еще если ты не веришь, что я девушка
>
> Фотку давай, да...:)

боюсь не потяните...:) 5 лет я за вами наблюдала (за программистами) забавный вы народ..какие вам девушки...ваша девушка это Delphi....:)

← →
sniknik © (2007-02-08 15:26) [18]

> какие вам девушки...ваша девушка это Delphi....:)
скоро вымрем нафиг... с таким отношениям к нам девушек (типа вам и не надо...). одно радует, что с вероятностью 95% это всетаки Вася, и настоящие может не так думают...

← →
fd979 © (2007-02-08 15:31) [19]

Var S1 : String; I : integer; Lst : TStrings; begin Lst := TStringList.Create; Lst.Clear; S1 := ""; for i := 1 to length(edit1.Text) do begin If (ord(copy(Edit1.Text, i, 1)[1]) >=48) and (ord(copy(Edit1.Text, i, 1)[1]) <=57) then begin S1 := S1 + copy(Edit1.Text, i, 1); end else If S1 <> "" then begin Lst.Add(S1); S1 := ""; end; end; if S1 <> "" then Lst.Add(S1);

Писал прямо сюда. Надо проверить будет ли работать. Можно потом оптимизировать. Вобщем найдет все числа в строке, т.е. в строке "ывы500 30авдал12" найдет 500, 30, 12 и запишет в Lst.

← →
Sveta_MGDIT (2007-02-08 15:34) [20]

> fd979 © (08.02.07 15:31) [19]

ого блин спасибо!!! фотку тебе выслать?!...:)

← →
Vlad Oshin © (2007-02-08 15:37) [21]

> Sveta_MGDIT (08.02.07 15:17) [11]

Не пойму, как поможет мой ответ на последний вопрос решению проблеммы... Так же не помню, когда мы с Вами пили брудершафты. Но если этот вопрос так сильно волнует, можем его решить в частном порядке. До пятницы я совершенно свободен.

Признак конца исходной подстроки - не цифра. Проверить на не цифрость :)
но могут быть и пробелы, и дроби
Если их не может быть - то Вам все сказали. Если могут - то придется разбирать посимвольно.

← →
Sveta_MGDIT (2007-02-08 15:37) [22]

> sniknik © (08.02.07 15:26) [18]
> > какие вам девушки...ваша девушка это Delphi....:)
> скоро вымрем нафиг... с таким отношениям к нам девушек (типа
> вам и не надо...). одно радует, что с вероятностью 95% это
> всетаки Вася, и настоящие может не так думают...

ну спорить с тобой не буду...:) если вам так легче, то пусть я буду ВАСЯ.
Проведите социологический опросик среди не знакомых девушек. Как они себе представляют программиста….:) и все сразу станет понятно….

← →
Sveta_MGDIT (2007-02-08 15:42) [23]

> Vlad Oshin © (08.02.07 15:37) [21]
>
> > Sveta_MGDIT (08.02.07 15:17) [11]
>
> Не пойму, как поможет мой ответ на последний вопрос решению
> проблеммы... Так же не помню, когда мы с Вами пили брудершафты.
> Но если этот вопрос так сильно волнует, можем его решить
> в частном порядке. До пятницы я совершенно свободен.
>
> Признак конца исходной подстроки - не цифра. Проверить на
> не цифрость :)
> но могут быть и пробелы, и дроби
> Если их не может быть - то Вам все сказали. Если могут -
> то придется разбирать посимвольно.

я уже писала пример моей строки
"Любоеслово №600 Ещеразлюбоеслово"
меняться она не может... единственно что может измениться это сама цифра. Да вы уже мне помогли у меня даже уже получилось ...Спасибо всем…и даже тем, кто хотел немножечко повыпендриваться что он очень умный…я это оценила….

Удалено модератором

← →
Sveta_MGDIT (2007-02-08 15:49) [25]

Удалено модератором

прям институт благородных девиц.. :)
ну тогда, в свою очередь, приношу извинения за излишне напыщенный тон, к которому не имею, и это на самом деле, достачного права.

>sniknik © (08.02.07 15:26) [18]

> какие вам девушки...ваша девушка это Delphi....:)

>скоро вымрем нафиг... с таким отношениям к нам девушек (типа вам и не надо...)

Не вымрем.
:)))

> [22] Sveta_MGDIT (08.02.07 15:37)
> и все сразу станет понятно….

Да и так все понятно. Зачем еще и опросик какой-то? У моей жены часто спрашивают: "Как ты их (компьютерщиков вообще, а не программистов в частности, прим. мое) понимаешь?" - "Многолетняя практика!"

> Как они себе представляют программиста….:)

это типа намек на анекдот? Гы-гы. Да мне пофиг твое представление.

Sveta_MGDIT (08.02.07 15:37) [22]
> если вам так легче, то пусть я буду ВАСЯ.
не легче, мне все одно, это статистика -
по зарегистрированным на этом форуме на данный момент
> Всего анкет: 12184 мужчин: 11515, женщин: 669
итого 5,490807616546290216677609980302 % женщин... а как форумы посмотришь так не менее трети. т.е. 25% врет. (и фотки не высылают!... а если и высылают то из плейбоя)

Брюнетка © (08.02.07 15:51) [27]
> Не вымрем.
> :)))
может познакомимся? ради невымирания! ??? ;)

evvcom © (08.02.07 15:51) [28]
>> Как они себе представляют программиста….:)
> это типа намек на анекдот? Гы-гы. Да мне пофиг твое представление.
аналогично... они же по кино представляют... а там вообще правды не показывают.

человек хоть заголовок осилил нормально оформить

<offtop>
to sniknik ©
Николай, насколько помню, были замечены в теме про анимашки, помираю хочу евангелион досмотреть, у вас случаем нету? а если есть, то меняюсь на какую-нибудь другую анимашку.
</offtop>

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

i:=pos(s, "№"); val(copy(s, i+1, length(s)-i), Result, i);
Result - число.

Sveta_MGDIT (08.02.07 15:03) [5]
Так надо мной глумятся….
Прочитал "Так надо, мной глумятся…" :)

Работа со строками. Найти похожие ветки