Separar Strings em Partes

[douglasdepaula 0]

Ae galera... o q eu preciso é o seguinte tenho uma string tpw: ABC-123-456

e preciso separar essa string em 3 partes, eu consigo separar em duas usando isso:

 

Parte[0] := Copy(str, 1,Pos('-', str) -1);
Parte[1] := Copy(str, Pos('-', str) + Length('-'),Length(str));

ai parte[0] = ABC parte[1] = 123

mas como pegar a 3ª parte da string ?

parte[2] = 456

 

flws...

[locorj 0]

Uma obs

Parte[1] := Copy(str, Pos('-', str) + Length('-'),Length(str));

é igual a 123-456.

 

Ai vai 2 idéias...

Declara a unit StrUtils em uses:

 

parte[2] := RightStr(str, 3);

 

ou

 

parte[0] := Copy(str, 1, Pos('-', str) -1);

parte[1] := Copy(ReplaceStr(str, parte[0]+'-',''), 1, pos('-',ReplaceStr(str, parte[0]+'-',''))-1);

parte[2] := Copy(ReplaceStr(str, parte[0]+'-'+parte[1]+'-',''), 1, Length(ReplaceStr(str, parte[0]+'-'+parte[1]+'-','')));

[douglasdepaula 0]

vlws funcionou perfeitamente... porem to com um problema aki, vou precisar dividir e 4 partes agora

tenho uma string do tipo ABCD-1234-ABCD-1234

como fasso agora ?

flws...

[Fabriciocbj 0]

Utilizando a mesma ideia, você pode fazer assim.

 

 

parte[0] := Copy(str, 1, Pos('-', str) -1);

parte[1] := Copy(ReplaceStr(str, parte[0]+'-',''), 1, pos('-',ReplaceStr(str, parte[0]+'-',''))-1);

parte[2] := Copy(ReplaceStr(str, parte[0]+'-'+parte[1]+'-',''), 1, Length(ReplaceStr(str, parte[0]+'-'+parte[1]+'-','')));

parte[3] := Copy(ReplaceStr(str, parte[0]+'-'+parte[1]+'-'+parte[1+'-'+parte[2]+'-','',''), 1, Length(ReplaceStr(str, parte[0]+'-'+parte[1]+'-'+parte[1]+'-'+parte[2]+'-','','')));