Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Вниз

Строки   Найти похожие ветки 

 
Steep ©   (2006-11-17 07:24) [0]

Есть большой кусок текста (для SQL) "засовывать" каждую строчку в кавычки достаточно паревно - нет ли функции: объявлении как строки (или как это правильно сказать) не одну строчку а несколько
например:

<супер функция>
create table(
 colume1 int
 colume2 char(20)
 colume3 int)
</супер функция>

и все это строка


 
Loginov Dmitry ©   (2006-11-17 07:41) [1]

Еще раз, и по-русски пожалуйста.


 
Steep ©   (2006-11-17 07:48) [2]

По-русски допутим
var
 s : String;
для того чтобы прировнять строку мы пишем s := "Текст"

а у меня текст:

Текст (
текст
текст
текст
)

для того чтобы прировнять к тексту нужно делать так:
"Текст ("+
"текст"+
"текст"+
"текст"+
")"

как это можно сделать не выделяя каждуй строку в "" и выделить сразу все
Надеюсь понятно объяснил


 
Loginov Dmitry ©   (2006-11-17 07:53) [3]

Сохрани

Текст (
текст
текст
текст
)

в файл. Загрузи его через TStringList. Ничего не придется выделять, поверь.


 
StriderMan ©   (2006-11-17 08:32) [4]

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

"строка"#13+


 
Steep ©   (2006-11-17 08:34) [5]

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


 
Steep ©   (2006-11-17 08:36) [6]

Вышли плиз на почту


 
Думкин ©   (2006-11-17 08:45) [7]


> Steep ©   (17.11.06 08:34) [5]

Работа с регулярными выражениями, например.


 
Steep ©   (2006-11-17 08:46) [8]


> Работа с регулярными выражениями, например.

это что?
хоть малюсенький примерчик можно или ссылку на статью?


 
Думкин ©   (2006-11-17 08:55) [9]


> Steep ©   (17.11.06 08:46) [8]

Места в которые вставляется текст из Эдитов - некоторый фиксированный текст типа - %%Edit1%%. Затем заменяешь такие вхождения на нужные. Есть библиотека для Дельфи, RegExp кажется называется. Работа с регулярными выражениями обычно расписывается при работе с Перл и ПХП.

Но есть и параметризация запросов в Дельфи. Это уже к тем, кто этим пользуется, не ко мне.


 
Андрей Сенченко ©   (2006-11-17 09:08) [10]


> По-русски допутим
> var
>  s : String;
> для того чтобы прировнять строку мы пишем s := "Текст"
>
> а у меня текст:
>
> Текст (
> текст
> текст
> текст
> )


А в каком виде это изначально хранится ? В текстовом файле ?


 
Steep ©   (2006-11-17 09:09) [11]

что-то вроде "Ширина стороны равна %a% см" а как вставить в эту %a%?


 
Steep ©   (2006-11-17 09:15) [12]

Изначально это лаба по SQL (создание баз, триггеры, процедуры)
но при создании баз нужно менять названия (баз, полей)

т.е. сейчас все SQL операции (за исключением запросов - их еще нужно написать) у меня есть просто в отдельных текстовых файлах

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


 
StriderMan ©   (2006-11-17 09:39) [13]


> Steep ©   (17.11.06 08:36) [6]
> Вышли плиз на почту

выслал исходники


 
Steep ©   (2006-11-17 09:40) [14]


> StriderMan ©

пасип дома гляну


> Работа с регулярными выражениями

Хотелось бы все-таки насчет этого по подробнее


 
StriderMan ©   (2006-11-17 09:45) [15]

кстати о птичках! как засунуть текстовый ресурс в проект?


 
Steep ©   (2006-11-17 09:54) [16]

хорошую идею предложил Alex_soldier хранить все-так же в файлах, а потом считывать построчно а в тех строках где нужно -искать и заменять..
затем произвести склейку! типа: str:="..........................+#1+......................"


 
Steep ©   (2006-11-17 09:57) [17]


> как засунуть текстовый ресурс в проект?

использовать ресурсы .rc
у меня дома статейка лежит на эту тему (ресурсы: графика, аудио, текст)

можно использовать Resource Maker

если не найдеш завтра захвачу!


 
novill ©   (2006-11-17 10:10) [18]


> [12] Steep ©   (17.11.06 09:15)

Учите матчасть :)

Если исходники в текстовых файлах все делается двумя строчками bat-файла. Дарю.

del %1.qouted
for /F "tokens=1* " %%i in (%1) do echo " %%i %%j "+ >> %1.qouted


Bat-файлу в качестве аргумента передается файл с исходных текстом на выходе получищь файл с квотированным содержимым и расширением .qouted


 
StriderMan ©   (2006-11-17 10:55) [19]


> novill ©   (17.11.06 10:10) [18]

еще кавычки надо на двойные кавычки заменять. да и #13 в конце строк не помешает.


 
novill ©   (2006-11-17 11:22) [20]

> [19] StriderMan ©   (17.11.06 10:55)
>
> > novill ©   (17.11.06 10:10) [18]
>
> еще кавычки надо на двойные кавычки заменять. да и #13 в
> конце строк не помешает.

В стандартной поставке для работы с символами практически нет средств.
Сделать-то можно, но выглядеть будет жутко.

А перенос строки - не проблема:

for /F "tokens=1* " %%i in (%1) do echo " %%i %%j "+#13#10+ >> %1.qouted


 
Anatoly Podgoretsky ©   (2006-11-17 12:05) [21]

> StriderMan  (17.11.2006 10:55:19)  [19]

? да и #13 в конце строк не помешает.

в конце строк не помешает #10.


 
Думкин ©   (2006-11-17 12:13) [22]


> Steep ©   (17.11.06 09:09) [11]

А про параметризацию так и не спрашиваешь. :(

Query2.SQL.Clear;

Query2.SQL.Add("INSERT INTO COUNTRY (NAME, CAPITAL, POPULATION)");
Query2.SQL.Add("VALUES (:Name, :Capital, :Population)");

Query2.Params[0].AsString := "Liechtenstein";
Query2.Params[1].AsString := "Vaduz";
Query2.Params[2].AsInteger := 420000;
Query2.ExecSQL;


 
Правильный Вася   (2006-11-17 13:14) [23]

s:="
create table(
colume1 int,
colume2 char(20),
colume3 int)
";

годится?


 
Steep ©   (2006-11-17 15:21) [24]


> Правильный Вася  

сам попробуй узнаешь

PS. смотри

> Steep ©   (17.11.06 07:48) [2]


 
Steep ©   (2006-11-17 15:24) [25]


> Думкин ©   (17.11.06 12:13) [22]

так никто не отвечает. Спасибо тебе.


> Query2.SQL.Add("INSERT INTO COUNTRY (NAME, CAPITAL, POPULATION)");
>
> Query2.SQL.Add("VALUES (:Name, :Capital, :Population)");
>
>
> Query2.Params[0].AsString := "Liechtenstein";
> Query2.Params[1].AsString := "Vaduz";
> Query2.Params[2].AsInteger := 420000;

Токо есть вопросик  если я вношу кучу таких инсерт как он определит кто из них кто?


 
novill ©   (2006-11-17 15:44) [26]

> [25] Steep ©   (17.11.06 15:24)

А твой компонент доступа вынесет столько инсертов?


 
Steep ©   (2006-11-17 15:50) [27]

должен! :) не знаю пользуюсь ADOQuery


 
novill ©   (2006-11-17 16:13) [28]

> [27] Steep ©   (17.11.06 15:50)
> должен! :) не знаю пользуюсь ADOQuery

Да, должен вроде. Я не пользовался.

Ты же вроде номераи пользуешься, по ним и определит.

А зачем тебе именнопараметрами пользоваться? ты много раз этот запрос использовать будешь?


 
Anatoly Podgoretsky ©   (2006-11-17 16:29) [29]

> novill  (17.11.2006 16:13:28)  [28]

Да хоть один раз.
Не использование параметров, это заранее раставленые грабли.


 
Steep ©   (2006-11-17 16:35) [30]


> Не использование параметров, это заранее раставленые грабли.

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


 
novill ©   (2006-11-17 16:46) [31]

> [29] Anatoly Podgoretsky ©   (17.11.06 16:29)
> > novill  (17.11.2006 16:13:28)  [28]
>
> Да хоть один раз.
> Не использование параметров, это заранее раставленые грабли.

Почему? Параметрами пользуюсь редко, но граблей не находил. Может я не там искал?


 
Anatoly Podgoretsky ©   (2006-11-17 16:56) [32]

> novill  (17.11.2006 16:46:31)  [31]

Не так конечно, но это сложно не найти.
Ищи в датах и строках


 
novill ©   (2006-11-17 17:18) [33]

Про форматы и кавычки, да вопросы с ними надо решать.
Использование или неиспользование параметров дает свои свободы и ограничения.
Кому, когда и что больше нужно, тем и пользуются.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.53 MB
Время: 0.052 c
2-1163752359
asg.aleks
2006-11-17 11:32
2006.12.03
подключение dbf файла


1-1161800306
MishaL
2006-10-25 22:18
2006.12.03
TListView. Columns не меняет ширину при изменении текста


15-1163348628
Михель
2006-11-12 19:23
2006.12.03
Не могу починить DMClient, заглючил и не лечится...


6-1152854738
Yeg
2006-07-14 09:25
2006.12.03
Фунция KoiToWin и сообщение с аттачем


15-1163246802
neud
2006-11-11 15:06
2006.12.03
sql





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский