AMIGA-RESISTANCE

Function p_GetWord(Zeichenkette,WortNummer,TrennZeichen)
    Local Wort,Anzahl = SplitStr(Zeichenkette,Trennzeichen)
    Return(Wort[Wortnummer-1])
EndFunction

Function p_Laden(Datei)
    Local Vorhanden=False
    Vorhanden=Exists(Datei)      ;Existiert diese Datei?
    If Vorhanden=True              ;Falls sie existiert...
        OpenFile(1,Datei,#MODE_READ)    ;...wird sie zum Lesen geöffnet
            ZeilenZaehler=0
            While Not Eof(1)    ;Eof ist die Abkürzung für EndOfFile
                ZeilenZaehler=ZeilenZaehler+1    
                Texte[ZeilenZaehler-1] = ReadLine(1)   ;Zeile Auslesen
            Wend
        CloseFile(1)
    Else
        Test=SystemRequest("Fehler","Konnte Datei nicht öffnen","OK")
    EndIf
EndFunction

@APPVERSION     "$VER: 0.0.2 (28.02.2011)"
/* Fenster Einstellung */
@DISPLAY {Title = "SPROD Viewer", Width = 800, Height = 600, Color = $EAECEA}

/* Font Einstellungen */
@FONT 1, "DejaVu Sans", 15
UseFont(1)
SetFontColor(#BLACK)

text$={}

/* Datei öffnen usw. */
size$=FileSize("test.asc")
OpenFile(1, "test.asc" ,#MODE_READ)

text$=ReadString(1, size$)
werte$,strings$ = SplitStr(text$,Chr(09))



CloseFile(1)


/* Werte anzeigen lassen */
TextOut(#CENTER, 15, werte$[1])

TextOut(1, 575, "Dateigröße:")
TextOut(80, 575, size$)
TextOut(1, 585, "String Anzahl:")
TextOut(80, 585, strings$)


/* The End */
WaitLeftMouse()
End()

@APPVERSION     "$VER: 0.0.2 (28.02.2011)"
/* Fenster Einstellung */
@DISPLAY {Title = "SPROD Viewer", Width = 800, Height = 600, Color = $EAECEA}

/* Font Einstellungen */
@FONT 1, "DejaVu Sans", 15
UseFont(1)
SetFontColor(#BLACK)

text$={}

/* Datei öffnen usw. */
size$=FileSize("test.asc")
OpenFile(1, "test.asc" ,#MODE_READ)

Runde=1

While Not Eof(1)	    ;Schleife wird bei Dateiende nicht mehr ausgeführt
  PosY=15
  For Zaehler=0 To 28            ;Bei mir hatten 28 Zeilen auf einer Seite Platz
    PosX=20
    text$=ReadLine(1)
    werte$,strings = SplitStr(text$,"\t")      ;Habe mal Chr(9) mit "\t" ausgewechselt
    For Anzahl=0 To strings-1
      werte$[Anzahl] = ReplaceStr(werte$[Anzahl],"[", "(")  ;Austausch von [] gegen ()
      werte$[Anzahl] = ReplaceStr(werte$[Anzahl],"]", ")")
      If Runde=1 And Zaehler<6
        Test=SystemRequest("X: "..PosX.."   Y: "..PosY,werte$[Anzahl],"Weiter")
      EndIf
      TextOut(PosX, PosY, werte$[Anzahl])
      If Runde=1
        PosX=PosX+200      ;Auf der ersten Seite habe ich 200 Pixel... 
      Else                 ;...Abstand zwischen den Wörtern genommen
        PosX=PosX+100      ;Ab Seite 2 wird die Ausgabe enger
      EndIf
    Next
    PosY=PosY+20
  Next
  WaitLeftMouse()
  Cls($EAECEA)
  Runde=Runde+1
Wend()
CloseFile(1)


/* Werte anzeigen lassen */

TextOut(#CENTER, PosY+20, "Dateigröße:")
TextOut(#CENTER, PosY+40, size$)
;TextOut(#CENTER, PosY+40, "String Anzahl:")
;TextOut(#CENTER, PosY+60, strings$)



/* The End */
WaitLeftMouse()
End()

@APPVERSION     "$VER: 0.0.2 (28.02.2011)"
/* Fenster Einstellung */
@DISPLAY {Title = "SPROD Viewer", Width = 800, Height = 600, Color = $EAECEA}

/* Font Einstellungen */
;@FONT 1, "DejaVu Sans", 15
;UseFont(1)
SetFontColor(#BLACK)

 OpenFile(1, "test.txt", #MODE_READ)
        ;WriteLine(1, "Hello People! How are you?")
        ;Seek(1, 0)
While Not Eof(1)
        test = ReadChr(1)
        test$ = Chr(test)
        Print(test$)
Wend()
 CloseFile (1)
 /* The End */
WaitLeftMouse()
End()