Форум: "Прочее";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];
ВнизРабота со строками. Найти похожие ветки
← →
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 Ещеразлюбоеслово"
меняться она не может... единственно что может измениться это сама цифра. Да вы уже мне помогли у меня даже уже получилось ...Спасибо всем…и даже тем, кто хотел немножечко повыпендриваться что он очень умный…я это оценила….
← →
fd979 © (2007-02-08 15:45) [24]Удалено модератором
← →
Sveta_MGDIT (2007-02-08 15:49) [25]Удалено модератором
← →
Vlad Oshin © (2007-02-08 15:51) [26]прям институт благородных девиц.. :)
ну тогда, в свою очередь, приношу извинения за излишне напыщенный тон, к которому не имею, и это на самом деле, достачного права.
← →
Брюнетка © (2007-02-08 15:51) [27]>sniknik © (08.02.07 15:26) [18]
> какие вам девушки...ваша девушка это Delphi....:)
>скоро вымрем нафиг... с таким отношениям к нам девушек (типа вам и не надо...)
Не вымрем.
:)))
← →
evvcom © (2007-02-08 15:51) [28]> [22] Sveta_MGDIT (08.02.07 15:37)
> и все сразу станет понятно….
Да и так все понятно. Зачем еще и опросик какой-то? У моей жены часто спрашивают: "Как ты их (компьютерщиков вообще, а не программистов в частности, прим. мое) понимаешь?" - "Многолетняя практика!"
> Как они себе представляют программиста….:)
это типа намек на анекдот? Гы-гы. Да мне пофиг твое представление.
← →
sniknik © (2007-02-08 16:15) [29]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]
>> Как они себе представляют программиста….:)
> это типа намек на анекдот? Гы-гы. Да мне пофиг твое представление.
аналогично... они же по кино представляют... а там вообще правды не показывают.
← →
shikitomedo2 © (2007-02-08 16:23) [30]человек хоть заголовок осилил нормально оформить
<offtop>
to sniknik ©
Николай, насколько помню, были замечены в теме про анимашки, помираю хочу евангелион досмотреть, у вас случаем нету? а если есть, то меняюсь на какую-нибудь другую анимашку.
</offtop>
← →
sniknik © (2007-02-08 16:48) [31]вот как раз евангелион качать не стал... может быть пока, другого хватило.
← →
GrayFace © (2007-02-08 18:48) [32]
i:=pos(s, "№");
val(copy(s, i+1, length(s)-i), Result, i);
Result - число.
Sveta_MGDIT (08.02.07 15:03) [5]
Так надо мной глумятся….
Прочитал "Так надо, мной глумятся…" :)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 2.636 c