remover caracter de uma string

Question

estou importando dados de um arquivo TXT at� ai tudo bem, mas qdo pego o codigo do Pedido que esta nesta posi��o 311[code:1:3b9f7f8cbb] Copy(StringAux,311,12) [/code:1:3b9f7f8cbb]ele n�o me retorna so...

Pestana_ · Answer

use o StringReplace para substituir o caracter estranho por um espa�o em branco.

function StringReplace(const S: string; const OldPattern: string; const NewPattern: string; Flags: TReplaceFlags): string;

S � a string original a qual ser� alterada pelas substrings.

OldPattern � a substring que ser� localizada e substituida pela a NewPattern.

Flags indica como ser� localizado e substituido as ocorr�ncias de OldPattern. Se Flags n�o incluir [rfReplaceAll] stringReplace somente substituir� a primeira ocorr�ncia de OldPattern em S, caso contrario, a StringReplace substiruir� todas as inst�ncias de OldPattern com NewPattern.
Se o par�metro Flags incluir rfIgnoreCase a compara��o ir� ser case insensitive.

se houver um caracter estranho, ent�o fa�a mais ou menos assim: StringReplace(Texto, localizarString, ��, [];

Pestana_ · Answer

� necessario declarar na unit [color=green:bb166db276][b:bb166db276]SysUtils[/b:bb166db276][/color:bb166db276]flw....

Carlos_tedex · Answer

[quote:dfc7689e93=�Pestana_�]use o StringReplace para substituir o caracter estranho por um espa�o em branco. [/quote:dfc7689e93][code:1:dfc7689e93]se houver um caracter estranho, ent�o fa�a mais ou menos assim: StringReplace(Texto, localizarString, ��, &#91;&93;);[/code:1:dfc7689e93]Caro Pestana_Entendi o funcionamento desta fun��o mas seguindo seu exemplo acima como vou mandar substituir algo que eu n�o sei o que �. Quando eu edito o arquivo TXT no notepad aparece uns quadrados... tentei localizar pelo codigo decimal 13 mas tb n�o obtive resultado.Caso vc tenha um email para que eu possa lhe passar o arq TXT pra vc dar uma analisada.mas desde j� agrade�o pela dica, pois essa fun��o ser� de grande serventia.qq novidade posta aqui pra nois... valew...

Pestana_ · Answer

foi voc� que criou este arquivo TXT?este arquivo n�o est� criptografado n�o n�?como foi feito o processo de gravar em arquivo TXT?flw....

Carlos_tedex · Answer

[quote:eaf22e85f5=�Pestana_�]foi voc� que criou este arquivo TXT?este arquivo n�o est� criptografado n�o n�?como foi feito o processo de gravar em arquivo TXT?[/quote:eaf22e85f5]- Esse arquivo foi criado por outro programador a qual n�o conhe�o.- O arquivo n�o esta criptografado.- O processo de gera��o desse TXT eu tb n�o saberia lhe dizer, pois quem o gerou foi um terceiro.Outras formas que tentei usar o StringReplace mas sem resultados:[code:1:eaf22e85f5]Str := StringReplace(S,#1310,32,&91;rfReplaceAll&93;);Str := StringReplace(S,$D$A,32,&91;rfReplaceAll&93;);Str := StringReplace(S,sLineBreak,32,&91;rfReplaceAll&93;);[/code:1:eaf22e85f5]...

Vitor Alcantara · Answer

Se voc� n�o sabe quais caracteres �estranhos� poder�o a vir, por que voc� n�o testa os caracteres permitidos.

um pequeno exemplo abaixo.

function SoCaracteresPermitidos(s:string):string;
var
  x:Integer;
  sAux:String;
begin
  sAux := ��;
  for x := 1 to Length(s) do
    //Aqui eu testo se s�o caracteres alphanum�ricos comuns ou virgula (,)
    if s[x]  in [�a�..�z�,�A�..�Z�, �0�..�9�, �,�] then
      sAux := sAux + s[x];
  result := sAux;
end;

Carlos_tedex · Answer

seguinte Vitor,testei sua fun��o e realmente ela deixou apenas os caracteres v�lidos. Mas ainda sim n�o consegui inserir um espa�o em branco no local do caracter estranho. Alterei sua fun��o para qdo for detectado um caracter que n�o contiver no if ele move espa�o. Mas mesmo assim n�o foi. Confere ai:[code:1:36c1a5982e]  for x := 1 to Length(s) do    if s&#91;x&93;  in &91;�a�..�z�,�A�..�Z�, �0�..�9�, �,�, �;�, � �, �/�, ��, �|�, �"�,                 �-�, �=�, �(�, �)�, �{�, �}�, �&91;�, �&93;�, �.�, �:�&93; then      sAux := sAux + s&91;x&93;    else      sAux := sAux + 32;[/code:1:36c1a5982e]mas agrade�o a aten��o... valew...

Vitor Alcantara · Answer

tenta assim[code:1:c1aa4f3b19]for x := 1 to Length(s) do    if s&#91;x&93;  in &91;�a�..�z�,�A�..�Z�, �0�..�9�, �,�, �;�, � �, �/�, ��, �|�, �"�,                 �-�, �=�, �(�, �)�, �{�, �}�, �&91;�, �&93;�, �.�, �:�&93; then      sAux := sAux + s&91;x&93;    else      sAux := sAux + � �; //caractere em branco[/code:1:c1aa4f3b19]...

Carlos_tedex · Answer

amigo tb ja tinha tentado assim mas tb nada... vou tentar colocar o link do arquivo pra vc�s baixarem...valew...

Carlos_tedex · Answer

Caso alguem queira baixar o arquivo para testar. Observe que o caracter estranho esta na posi��o 305[url]//www.pro-controll.com.br/teste.zip[/url]valew...

Luciano.lirio · Answer

Tente usar desta forma, acho que vai dar certo. os caracteres que n�o est�o no IF ser�o substituidos por um espa�o em branco.

var
  s: String;
  x: Integer;
begin
  s := �Jos�+#08+�da�+10+�Silva�+13+�Sauro�;
  for x := 1 to Length(s) do
    if not (s[x]  in [�a�..�z�,�A�..�Z�, �0�..�9�, �,�, �;�, � �, �/�, �\�, �|�, �"�,
                 �-�, �=�, �(�, �)�, �{�, �}�, �[�, �]�, �.�, �:�]) then
      s[x] := � �;
  ShowMessage(s);

Comodelphi · Answer

Cara, esse arquivo parece ter um delimitador que � o ponto e virgula, al�m disso, ele parece n�o ter um lay-out fixo para o tamanho dos campos pois tem campos memo no meio e o caracter estranho, � um CR+LF, Chr(13) + Chr(10). Voc� teria que que substituir e recriar o arquivo pra ler sequencialmente em linha, e al�m disso esse campo memo n�o pode variar de tamanho para voce ter sempre o c�digo do pedido na coluna 311. Eu pediria para a pessoa que gera o arquivo gerar j� num formato mais conveniente.

abcs.

Luciano.lirio · Answer

carlos_tedex,

pelo que vi no arquivo, o problema est� na quebra das linhas, note que a terceira linha n�o est� com quebra e o c�digo do pedido est� na mesma linha, as demais linhas est�o com o c�digo do pedido na pr�xima linha.

Comodelphi · Answer

Se vc estiver usando ReadLn, esses caracteres n�o aparecem na string, pois s�o justamente os caracteres de controle (chr(13) + chr(10)) que indicam uma nova linha no arquivo. Se vc ler cada Char do arquivo e substituir por outra coisa qualquer ai vc n�o vai ter quebra de linha nenhuma, teria um arquivo com uma �nica linha.

Luciano.lirio · Answer

Consegui ler teu arquivo em problemas com o c�digo abaixo.

function LimpaInvalidos(const _Str: String): String;
var
  X: Integer;
begin
  Result := _Str;
  for X := 1 to Length(Result) do
    if (Result[X] in [13]) then
      Result[X] := � �;
end;

function PartStr(const _Str: String; const _Chr: String; const _NumPart: Integer): String;
var
  I: Integer;
  strTemp: String;
begin
  strTemp := _Str;
  for I := 1 to _NumPart do
  begin
    if Pos(_Chr,strTemp) > 0 then
    begin
      Result := Copy(strTemp,1,Pos(_Chr,strTemp)-1);
      Delete(strTemp,1,Pos(_Chr,strTemp));
    end
    else
    begin
      Result := strTemp;
      strTemp := ��;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ArqEnt: TextFile;
  Linha: String;
  Campos: Array[1..20] of String;
begin
  Reset(ArqEnt,�C:\Downloads\TESTE.txt�);
  while not eof(ArqEnt) do
  begin
    ReadLn(ArqEnt,Linha);

    // Verifica se a linha come�a com 1 caso contr�rio cancela o processamento.
    if Linha[1] <> �1� then raise Exception.Create(�Arquivo Inv�lido.�);

    Campos[01] := PartStr(Linha,�;�,01);
    Campos[02] := PartStr(Linha,�;�,02);
    Campos[03] := PartStr(Linha,�;�,03);
    Campos[04] := PartStr(Linha,�;�,04);
    Campos[05] := PartStr(Linha,�;�,05);
    Campos[06] := PartStr(Linha,�;�,06);
    Campos[07] := PartStr(Linha,�;�,07);
    Campos[08] := PartStr(Linha,�;�,08);
    Campos[09] := PartStr(Linha,�;�,09);
    Campos[10] := PartStr(Linha,�;�,10);
    Campos[11] := PartStr(Linha,�;�,11);
    Campos[12] := PartStr(Linha,�;�,12);
    Campos[13] := PartStr(Linha,�;�,13);
    Campos[14] := PartStr(Linha,�;�,14);
    Campos[15] := PartStr(Linha,�;�,15);
    Campos[16] := PartStr(Linha,�;�,16);
    Campos[17] := PartStr(Linha,�;�,17);
    Campos[18] := PartStr(Linha,�;�,18);
    Campos[19] := LimpaInvalidos(PartStr(Linha,�;�,19));
    Campos[20] := PartStr(Linha,�;�,20);
  end;
  CloseFile(ArqEnt);
end;

F�rum remover caracter de uma string #349206