String alle X Zeichen splitten

[gangs-taas]

hey
danke für den ansetz

hab da nur ne frage zu

was ist wenn ich z.b.
a durch 1234 ersetz
und b durch 4567
und c durch 5678

und wenn ich das in eine lange reihe mach (also ehemal einen text) 1234567 ...

woher weiß das programm dann ob die eine 4 jetzt zum a oder zum b gehlrt ? ect. ???

[jaenicke]

Solange alle Ersetzungen für je ein Zeichen genauso lang sind, ist das ja kein Problem. Immer 4 Zeichen gehörten zu einem Zeichen.

[Florian H]

Zitat:

Zitat von jaenicke

Solange alle Ersetzungen für je ein Zeichen genauso lang sind, ist das ja kein Problem. Immer 4 Zeichen gehörten zu einem Zeichen.

Bei dem von Sakura geposteten Code wird aber die Zusatzinformation "immer 4 Zeichen" nicht benutzt, also ist es doch ein Problem.

[Panthrax]

Man könnte ja die Information hinzunehmen, dass jeder Code 4 Zeichen lang ist. Also entsprechend in der Wiederholung 4 Zeichen abspalten und zurückwandeln, fertig. Oder man bedient sich z.B. der Fano-Bedingung, d.h. jeder Code ist präfixfrei, und durchläuft zeichenweise den kodierten Text. Da es ein Lernprojekt ist, bei dem es nicht um den Code an sich geht, würde ich die Zusatzinformation "4 Zeichen lang" nehmen.

[gangs-taas]

und wie sieht dann dein code aus ?
wo baust du das ein ?

[gangs-taas]

keine antwort ?

[hoika]

Hallo,

wenn jedes Zeichen durch 4 andere ersetzt wurde,
nimmst du dir den String und trennst immer 4 Zeichen ab per Copy.

Bsp:
a=1234
b=5678

abb sieht also so aus
String2:= '123456785678'

Jetzt per

Delphi-Quellcode:

sTemp:= Copy(String2, 1, 4);  -> 1234 -> ergibt a
String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 56785678

sTemp:= Copy(String2, 1, 4);  -> 5678 -> ergibt 5
String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 5678

usw.

solange bis String2 leer ist.


Das ganze kommt in eine Schleife.

Nach 1/2 Jahren Informatik sollte das machbar sein.

Ansatz:

Delphi-Quellcode:

while String2<>'' do
begin
  sTemp:= Copy(String2, 1, 4);  -> 1234 -> ergibt a

  String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 56785678

  usw.
end;

Du könntest auch was fertiges benutzen (RLE z.B.)


Heiko

[gangs-taas]

vielen dank