Remover Comentário

Delphi

12/09/2005

Tenho um código sql assim:

# Comentário
INSERT INTO teste VALUES ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");
INSERT INTO teste VALUES ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");


Como faço para remover o comentário que é indicado pelo mas se por exemplo no registro dois tem o ele vai remover aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa´); ai não pode remover entre ´´


Rudá

Rudá

Curtidas 0

Respostas

Rudá

Rudá

12/09/2005

Opa foi mal cliquei duas vezes no enviar!


GOSTEI 0
Yallebr

Yallebr

12/09/2005

Explique melhor


GOSTEI 0
Rudá

Rudá

12/09/2005

Arq1.sql:

# Comentário 
INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES ("bb");


Arq2.sql:

 Comentário 
INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES ("b");


Ai eu quero remover esse os comentários dos arquivos sql.

Fiz assim:
i:= Pos(´´,Linha);
if Not (i = 0) then
Linha:= Copy(Linha,1,i-1);

O que ele vai fazer remover tudo depois do na linha

Depois de executar isso ele vai ficar assim:

Arq1.sql:

INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES ("bb");


Arq2.sql:

INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES [b]("b[/b]


Note que no Arq2.sql tinha a linha:
INSERT INTO teste VALUES ([b:179e895574]´b#´[/b:179e895574]);
Ai ele removeu tudo que tava depois do
ficando assim:
INSERT INTO teste VALUES [b](´b

O que eu quero que faça é que quando estiver dentro de ´´ ele não remova


GOSTEI 0
Rjun

Rjun

12/09/2005

Só para ver se eu entendi.

[b:02b4b5210f]Origem[/b:02b4b5210f]
# Comentário 
INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES ("b");


[b:02b4b5210f]Final[/b:02b4b5210f]
INSERT INTO teste VALUES ("aa"); 
INSERT INTO teste VALUES ("b");


É isso?


GOSTEI 0
Marcio.theis

Marcio.theis

12/09/2005

Apenas modifiquei um pouco o seu código, veja se seria isto que você deseja:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    x: integer;
    textoVerificar, ret: string;
begin
ret:=´´;
textoVerificar:=Edit1.Text;
for x:=1 to Length(textoVerificar) do
    begin
    if textoVerificar[x] <> ´´ then
        ret:=ret + textoVerificar[x];
    end;
Edit2.Text:=ret;
end;


no caso no meu teste apenas adicionei em um form um botão e dois edit´s.


GOSTEI 0
Rudá

Rudá

12/09/2005

É isso mesmo Rjun.

-----------------------

/]/]@t - O seu código só remove o # e não to o comentário olhe o exemplo que dei!!!


GOSTEI 0
Marcio.theis

Marcio.theis

12/09/2005

Ok... me desculpe por não ter entendido o que vc realmente queria... se tivesse sido mais explicativo poderia ter lhe ajudado.


GOSTEI 0
Rudá

Rudá

12/09/2005

Tentei usar essa [b:a67c8f215e]#\s*.*[/b:a67c8f215e] Expressões Regulares mas não funcionou queria que alguem me ajude resolver essa espressão.
Olhe o que aconteceu:

Memo1
memo
insert ("aa")
memo
 memo


Quando apliquei a espressão regular ficou assim
Memo1

insert ("


O que eu quero é que ele fique assim
Memo1
insert ("aa")


Alguem pode me ajudar??


GOSTEI 0
Rudá

Rudá

12/09/2005

Como faço para remover comentários assim /* texto */ tudo que ficar entre /* e */ mas nao pode ser removido se tiver entre [b:35d8d3c6c1]´ ´[/b:35d8d3c6c1] ou [b:35d8d3c6c1]´ ´[/b:35d8d3c6c1]

Ex:
Memo1/*hsfdgfh*/
/*memo*/
insert ("/*aa*/")
/*memo*/
/* memo*/


Ai tem que ficar assim
Memo1

insert ("/*aa*/")



GOSTEI 0
POSTAR