PureBoard

Code: Alles auswählen

*speicher=AllocateMemory(1024) ; Wir reservieren 1024 Byte=1 KB Speicher im RAM

PokeS(*speicher, "St@andFurz") ; Wir speicher diesen String in *speicher

Debug PeekS(*speicher) ; Wir lesen den *speicher aus
Debug PeekS(*speicher, 5) ; Wir lesen nur die ersten 5 Zeichen aus *speicher

PokeS(*speicher, "Jedes Böhnchen gibt ein Tönchen") ; Wir überschreiben den *speicher

Debug PeekS(*speicher)

Code: Alles auswählen

file_in.s = "c:\test1.txt"

If ReadFile(0, file_in) ;Datei laden
  Size.l = Lof(0)
  *buffer = AllocateMemory(Size) ;Speicher allokieren
  If *buffer
    ReadData(0, *buffer, Size) ;Datei auslesen
  EndIf
  CloseFile(0)
EndIf

If *buffer ;wenn Datei existiert
  file_out.s = "c:\test2.txt"
  If CreateFile(0, file_out) ;neue Datei erstellen oder alte überschreiben
    WriteData(0, *buffer, Size) ;Daten in Datei schreiben
    CloseFile(0)
  EndIf
  FreeMemory(*Buffer) ;Speicher wieder freigeben
EndIf

Code: Alles auswählen

text$="StandFurz"

Debug Left(text$, 5) ; anfängerfreundlich, aber langsam
Debug PeekS(@text$, 5) ; für Fortgeschrittene, aber schnell

Code: Alles auswählen

Define string$ ; entspricht AllocateMemory()

string$="tanga" ; entspricht PokeS()

Debug string$ ; entspricht PeekS()

Code: Alles auswählen

Debug *speicher

Code: Alles auswählen

Debug @string$

Code: Alles auswählen

Define string$ ; Reservieren des Speichers (das übernimmt PB)

string$=Space(10024) ; Wir bestimmen, wie groß der Speicher sein soll (1024 Byte)


; string$="tanga" ; So wollen wir diesmal nicht speichern!
PokeS(@string$, "tanga") ; sondern so :-)

; Debug string$ ; So wollen wir diesmal nicht kontrollieren
Debug PeekS(@string$) ; sondern so :-)

Code: Alles auswählen

string$="PUREBASIC"
Debug Mid(string$, 5, 3)

Code: Alles auswählen

*buffer=AllocateMemory(500) ; Diesmal nur 500 Byte reservieren
; Wir speichern PUREBASIC in den Speicher
PokeS(*buffer, "PUREBASIC")

; Wir wollen BAS haben
Debug PeekS(*buffer+5, 3)

Code: Alles auswählen

Debug PeekS(*buffer+5)