Fórum Dividir string #300505

24/10/2005

0

Delphi

Boa tarde Galera estou com um pequano probleminha é esse : eu tenho uma string de 420 caracteres, a qual são várias aliquotas juntas assim T011800S020500 pois é só que é necessário que eu jogue em um vetor a mesma só que separada dessa forma T011800 na posição 1 , S020500 na posição 2 do vetor e assim por diante ai verifiquei que no inicio de cada aliquota tem uma letra então gostaria de saber como eu faço pra verificar dentro dessa string uma letra que ai se for letra eu copio ela mais os outros 6 caracteres e mando pro vetor nas posições algeum pode me dar uma força


Bruno

brunoemf@gmail.com

[color=red:6d3fad602e]Título editado por Massuda Título original removido: ´Help Urgente´[/color:6d3fad602e]



Orc

Orc

Responder

Posts

24/10/2005

Marlon Spiess

begin
texto := Stringoriginal;
ind := 0;
while length(texto) > 0 do
begin
inc(ind);
recebe[ind] := copy(texto,1,6);
delete(texto,1,6);
end;


Só falta defenir as variáveis.


Responder

Gostei + 0

24/10/2005

Fabiano Góes

Apenas um ideia, tente adaptar a sua situação:

var
  str : String;
  iPos:  integer;
begin
  str :=  SuaString;

  iPos  :=  Pos(´T´, str);
  if copy(str, iPos, 1) = ´T´ then
     Memo1.Lines.Add(copy(str, iPos, 7));// <= Aqui você joga no Vetor
                                         // estou adionando no memo apenas como teste

  iPos  :=  Pos(´S´, str);
  if copy(str, iPos, 1) = ´S´ then
     Memo1.Lines.Add(copy(str, iPos, 7));

  // Faça o mesmo para as outras letras ....

  ...

end;


Espero que possa te ajudar !

Um Abraço !!!!


Responder

Gostei + 0

25/10/2005

Randallo

for i:=1 to Length(SuaString)/7 do begin
Array[i] := MidStr(SuaString,i*7-6,7);

rápido e fácil... :P
um abraço


Responder

Gostei + 0

26/10/2005

Orc

Valeu Galera pela força


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar