D�vida com string

Question

Preciso copiar uma string de uma posi��o conhecida at� a palavra FONE, ou seja, copiar tudo que esteja antes de fone. Como fa�o isso usando pos? Tentei assim Copy(s,1,pos(�FONE:�,s), mas n�o deu. N�o determinar quantos caracters s�o at� fone, pois s�o vari�veis.

Ffc · Answer

Boa noite Paulo,Tenta desta forma que vai funcionar.Copy([b:11f7f70823]var_string[/b:11f7f70823], 1, POS(�FONE:�, [b:11f7f70823]var_string[/b:11f7f70823])-1));Abra�os....

Paulo · Answer

J� fiz e n�o funciona. Veja o meu c�digo:

j := AnsiPos(�LOJA:�,s); if j <> 0 then Loja := Copy(s,j+5,pos(�FONE:�,s)-1);

A String s est� assim:

�LOJA: S�o Bento FONE:(11)9999-9999�

Pelo meu c�digo acima est� vindo assim:

�S�o Bento Fone:(11)9�

Realmente estou apanhando de algo muito simples

Paulo · Answer

J� fiz e n�o funciona. Veja o meu c�digo:

j := AnsiPos(�LOJA:�,s); if j <> 0 then Loja := Copy(s,j+5,pos(�FONE:�,s)-1);

A String s est� assim:

�LOJA: S�o Bento FONE:(11)9999-9999�

Pelo meu c�digo acima est� vindo assim:

�S�o Bento Fone:(11)9�

Realmente estou apanhando de algo muito simples

Marco Salles · Answer

[quote:3cea956517]Preciso copiar uma string de uma posi��o conhecida at� a palavra FONE, ou seja, copiar tudo que esteja antes de fone. [/quote:3cea956517]se voce quer isto mesmo e eu entendi deste memsmo modo o [u:3cea956517][b:3cea956517]Facc tem raz�o[/b:3cea956517][/u:3cea956517]:[quote:3cea956517]Boa noite Paulo, Tenta desta forma que vai funcionar. Copy(var_string, 1, POS(�FONE:�, var_string)-1)); Abra�os.[/quote:3cea956517]Agora � casesensitive e se voce tiver Fone , FONe , FoNe etc... n�o funciona .. Ai ja � outro c�digoFora disso , realmente n�o d� para  entender tamnha d�vida ????...

Paulo · Answer

Est� exatamente como est� na minha string, ou seja, [color=red:54cfecf611]FONE:[/color:54cfecf611]...

Marco Salles · Answer

cita��o de marco salles[quote:9c4850d5d9]Agora � casesensitive e se voce tiver Fone , FONe , FoNe etc... n�o funciona .. Ai ja � outro c�digo [/quote:9c4850d5d9]cita��o de paulo[quote:9c4850d5d9]Est� exatamente como est� na minha string, ou seja, FONE:[/quote:9c4850d5d9]ent�o paulo .. o codifo do FFC para uma String [b:9c4850d5d9]s=�LOJA: S�o Bento FONE:(11)9999-9999�[/b:9c4850d5d9]Tera como Resposta[b:9c4850d5d9]�LOJA: S�o Bento�[/b:9c4850d5d9]Esta Errado Isto ????...

Paulo · Answer

Marcos, a minha string original �:�LOJA: S�o Bento FONE:(11)9999-9999� Eu preciso pegar somente S�o Bento, nada mais. Eu coloquei o j+5, para copiar apartir LOJA:(5 caracteres), e pegar tudo antes de FONE: e depos de LOJA:. Fiz conforme passei, mas continua vindo �sujeira�....

Ffc · Answer

Paulo tenta desta formaEdit1.Text := �LOJA: S�o Bento FONE:(11)9999-9999�;(Copy(Edit1.Text, 7, POS(�FONE:�, Edit1.Text)-7);Vai dar certo ok.Abra�os....

Paulo · Answer

N�o tenho como colocar num edit. Minha realidade � a seguinte: Imagine um arquivo texto com mais ou menos 10.000 linhas, onde vai aparecer sempre, em determinados momentos String assim:
[color=red:2dfcdf81ec]LOJA: Nome _da_loja FONE:Num_Fone[/color:2dfcdf81ec]. A� eu pego somente a loja, guardo numa StringList e depois gero outro arquivo Txt, mas j� formatado conforme o nosso Layout aqui. Falei 10.000 linhas, mas pode ser muito mais, dependendo do per�odo. Vou varrendo e guardando o nome da loja. Por isso eu uso o AnsiPos e etc...

Joaoshi · Answer

Colega, tente assim:[code:1:c4ea747952]j := AnsiPos(�LOJA:�,s); if j <> 0 then      Loja := Copy(s,                         Pos(�LOJA:�,s) + 5,                         Pos(�FONE:�,s)-7);[/code:1:c4ea747952]Espero ter ajudado....

Paulo · Answer

Ainda n�o testei, mas posso tentar fazer assim e ver se funciona.j := AnsiPos(�LOJA:�,s);FinLoja := j+5;if j <> 0 then  Loja := Copy(s,FinLoja,pos(�FONE:�,s)-FinLoja);...

Ffc · Answer

Caro Paulo ap�s testar eu percebi qual o seu problema, ent�o teste desta forma.

var
J: Integer;
S, Loja: [b:58f96c5cb6]String[/b:58f96c5cb6];
[b:58f96c5cb6]begin[/b:58f96c5cb6]

S := �TESTANDO O SISTEMA LOJA: SAO BENTO FONE:(62)33110000�;
j := AnsiPos(�LOJA:�,s);
[b:58f96c5cb6]if[/b:58f96c5cb6] j <> 0 [b:58f96c5cb6]then[/b:58f96c5cb6]
Loja := Copy(s,Pos(�LOJA:�,s) + 5,Pos(�FONE:�,s)- (Pos(�LOJA:�,s) + 5));
ShowMessage(Loja);

Obs: S: String foi somente para teste ent�o pode fazer da sua forma.

Boa sorte...

F�rum D�vida com string #360433