Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.55 MB
Время: 0.039 c
15-1163405336
WondeRu
2006-11-13 11:08
2006.12.03
Как часто Вы делаете бэкапы документов дома?


1-1161276407
Ш-К
2006-10-19 20:46
2006.12.03
Как прочитать текст из TWebBrowser?


2-1163597749
КлЯкСа
2006-11-15 16:35
2006.12.03
Как закрыть список DBLookupCombo?


2-1163679128
KyRo
2006-11-16 15:12
2006.12.03
Почему нет конекта ?


6-1152890949
_kos
2006-07-14 19:29
2006.12.03
Socket в цикле