Verschlüsselung - Text Datei in Zeichen aufteilen

[Friedhelm]

Code: Alles auswählen

Structure byt
 StructureUnion
  wert.b
 EndStructureUnion
EndStructure


file$ = OpenFileRequester("Encode in S2-1", "", "", "")
fileout$ = SaveFileRequester("Encode", "encode.txt", "", "")

If CreateFile(1, fileout$)
 If ReadFile(2, file$)
  UseFile(1)
  WriteStringN("Code: Pxxxxx "+inp$)
  WriteStringN("")
  WriteString("S2-1:")
 
 
  While Eof(2)
   UseFile(2)
   string.s=ReadString()
   *MeinText.byt=@string
 
   While *MeinText\wert<>0 ;0 zeigt das Ende des Strings an
    
                              
    zeichen$ = Str(*MeinText\wert);<<<<<<----
    
    UseFile(1)
    Select Asc(zeichen$)
     Case  97 : WriteString("0A")
     ; (...)
    EndSelect
   
    *MeinText+1 ;Zum nächsten Buchstaben springen
   Wend
   UseFile(1)
   WriteStringN(":")
  Wend
  CloseFile(2)
 EndIf
 CloseFile(1)
EndIf 

Code: Alles auswählen

Structure byt
 StructureUnion
  wert.C ;<------
 EndStructureUnion
EndStructure


file$ = OpenFileRequester("Encode in S2-1", "", "", "")
fileout$ = SaveFileRequester("Encode", "encode.txt", "", "")

If CreateFile(1, fileout$)
 If ReadFile(2, file$)
  UseFile(1)
  WriteStringN("Code: Pxxxxx "+inp$)
  WriteStringN("")
  WriteString("S2-1:")
 
 
  While Eof(2)
   UseFile(2)
   string.s=ReadString()
   *MeinText.byt=@string
 
   While *MeinText\wert<>0 ;0 zeigt das Ende des Strings an 
                              
    
    
    UseFile(1)
    Select *MeinText\wert; <----------
     Case  97 : WriteString("0A")
     ; (...)
    EndSelect
   
    *MeinText+1 ;Zum nächsten Buchstaben springen
   Wend
   UseFile(1)
   WriteStringN(":")
  Wend
  CloseFile(2)
 EndIf
 CloseFile(1)
EndIf 

[Kiffi]

@SpecialDXX: Könntest Du bitte in Deine Signatur eintragen, welche
PB-Version Du verwendest?

Danke & Grüße ... Kiffi