ActiveDelphi

[gilbertodias1]

Olá. pessoal Estou precisando de uma função que, dentro de um tmemo, separe tudo que esta Depois das 3 aspas e antes das 4 aspas, EX

'''R$300,oo''''

A funcao e a seguinte, tem que processar linha por linha, de um texto de vamos dizer 30 linhas em um tmemo onde existam varias informacoes como nome do produto, EX

Produto = Lampadas para carro, tipo tal, nome tal, Valor '''300,00''''
E no programa quando o cliente procurar EX, Lampada tal, saia so o valor, 300,00 e basicamente isso porque o resto ja consegui, ja procurei no forum vi varias formas, e tudo se resume no POS ja consegui tirar tudo, que ta antes, por ex ja consegui de '''300,00'''' o programa deixa '''300,00, mais so que as outras linhas de nome de produtos e outros dados, ele joga para o outro memo tambem, nao so o '''300,00 mais todas as linhas, E eu so quero o valor para o ooutro memo, no caso 300,00 Alguem pode me ajudar, ja fiz de tudo peguei varios codigos aqui no forum mais nao consegui adaptar, ja to a 1 semana nisso alguem pode me ajudar porfavor,

[Proficenter]

Eu fiz esse exemplo de uma olhada e faça algo parecido dentro de um loop para pegar as linhas do memo, acho que deve te ajudar ele retira todos as aspas da linha.

procedure TForm1.Button1Click(Sender: TObject);
var
Str1 : String;
begin
Str1 := edit1.Text;
while (Pos('''', Str1) > 0) do
Delete(Str1, Pos('''', Str1) , 1);

Edit2.Text := Str1;
end;

[gilbertodias1]

Ola Proficenter, sim e isso mesmo, e isso eu ja consegui, apagar as aspas, so que oq eu nao to conseguindo, e selecionar so oq ta dentro por ex.

Testo blalblabla
testo2
allgo aki
'''300,00''''

Ai eu quero que passe pra otro memo so o 300,00 sem aspas, mais nao so sem aspas e sim sem o texto que nao seja 300,00, no aguardo.

Obrigado pela ajuda amigo.

[bdexterholland]

[Proficenter]

Segue ai entao um exemplo como vc pode pegar somente o valor entre as aspas. Mais vc deveria alterar o modo de fazer isso trabalhar com aspas eh pouco chato.

procedure TForm1.Button1Click(Sender: TObject);
var
Aux : String;
begin
Aux := Edit1.Text;

{ Coloca a aspa na posicao 1 }
Delete(Aux, 1, Pos('''', Aux));

{ Retira as outras aspas }
while (Pos('''', Aux) = 1) do
Delete(Aux, Pos('''', Aux), 1);

{ Retira os caracteres que estao atras das aspas }
Delete(Aux, Pos('''', Aux), Length(Aux));

Edit2.Text := Aux;
end;

Vc pode melhorar foi o que pensei rapidamente para poder ajudar.
Blz..

[forst]

Boa tarde amigos,

acho que vcs estão complicando o que não é dificil...

Vc pode usar um copy junto com o pos pra pegar a posição certa que você quer...

em uma string vc coloca 2 aspas simples que corresponde a uma...
ex:
vStr := ''''''''; // é igual a '''


Olha este exemplo para você intender...
Cria 2 Edits.
no Edit1 vc coloca o texto: '''300,00''''

crie um botao:

[gilbertodias1]

Ola pessoal ja ajudo muito mais nao resolveu, pq primeiro nao ta processando todas as linhas do memo, o seu exemplo forst servio perfeitamente porem nao processa todas as linhas, e ja que as aspas estao atrapalhando vamos por entao, tudo depois da / e antes da //
Alguem pode ajudar, que processe todas aslinhas do memo e nao copiem testo por ex

Produto tal talal
e isso e tal
valor /300,00//

que so copie para o memo 300,00 e nao produto tal tal e isso e tal valor etc. abraços e obrigado pela ajuda mesmo pessoal.

[forst]

Ae cara, blz?

bom, vc tem 2 memos, um deles tem isso por ex:
lalalal
asdad
'''300,00''''
asda
eeee
bcsd'''400,00''''
asdasd

entao no outro memo teria q aparecer somente:
300,00
400,00

é isso nao é?

entao vc usa a mesma ideia que eu postei antes.. soh utiliza uma rotina pra andar nas linhas desse seu memo...

Faça o seguinte..
substitua os 2 edits e coloque 2 memos...
no memo1 coloque o seu texto...

e no botao:

[gustavocco]

Olá, agora q vi seu post da mensagem privada. Entao... eu nao to tendo mto tempo por aqui pra criar um exemplo completo, mas pelas respostas acima, acredito q lhe ajudaram bastante.

Ainda para vc ter uma idéia mais ampla sobre estes comandos indico:

http://www.delphibasics.co.uk/index.html nesse endereço, embora em ingles, vc encontra muitas funções (basicas, mas importantes) e exemplos de implementação.

Flw.

[gilbertodias1]

Ola forst , poxa mano valew mesmo nao sabe a quanto tempo tento isso, bom agora ja esta resolvido, muito obrigado mano. So que so um pouco principiante, voce poderia da uma explicada nos passos que voce fez para que eu possa aprender pra na proxima ja até editalo, pois eu edito algo nele como oq procurar no pos, e ja da erro rs, o seu pega certinho aqui, sem erro. se nao for incomodo vlw

vlw gustavo pela atençao abraços . vo da uma estuda no site sim vlw

[gilbertodias1]

Alguem pode me dizer porque depois que eu do a primeira pesquisada, nao consigo efetuar nova pesquisa.?

[forst]

[gilbertodias1]

Eita, forst aeuahue deu pra entender tudo sim mais explicado que isso nao tem, entendi sim mano vlw, mais olha so
Ai entao O 1 pos copia depois das 3 aspas, o segundo começa na 10 e subitrai 4, pra ficar so os 6 dig no caso 300,00 mais so que ai então se o valor for 1000,00 por ex, que ja aumenta 1 numero, ele vai apagar o ultimo 0 correto?

E sobre a citação que você não entendeu, e que depois que eu faço a primeira busca em um texto, ele acha tudo direitinho mais se eu tentar efetuar, uma nova busca, ja e como se o programa nao funcionasse mais nao acontece nada..

[gilbertodias1]

Oi forst. pode me da uma ajuda ai nesse topico?

http://www.activedelphi.com.br/forum/viewtopic.php?t=36518

[forst]