PureBasic

Code : Tout sélectionner

; -------------------- GESTION DES LANGUES --------------------
#UK = 0
#FR = 1

DataSection
	FR_MENU:
	Data.s "Fichier"
	
	UK_MENU:
	Data.s "File"
	
EndDataSection

;
MENU = #UK

If MENU = #FR
      Restore FR_MENU
ElseIf MENU = #UK
      Restore UK_MENU
EndIf 

Read.s Fichier$

Code : Tout sélectionner

; exemple de code qui mofdifie en Ram 
; le contenu de la DataSection :o)

calldebugger
; utilisation normal
restore toto ; on se place au label de la datasection
read.s a$ ; on lis le contenu du premier Data
debug a$ ; affiche "toto"  .... normal quoi :)
debug ?toto  ; affiche l'adresse Ram du label

; on va utiliser cette adresse pour modifier son contenu
pokeS(?toto,"titi") ; on va remplacer "toto" par "titi"

restore toto ; on se replace au debut de la Datasection
read.s a$ ; on lis le contenu
debug a$ ; tiens, le contenu n'est plus "toto" mais "titi"
; ceci prouve que la Datasection est bien en Ram  puisqu'on l'a modifié :)
; ça peut etre vue comme du code automodifié LOL

DataSection
	toto:
	data.s "toto"
EndDataSection; EPB

Code : Tout sélectionner

FR_MENU:
	Data.s "Fichier","Nouveau", "Ouvrir", "Enregistrer", "Fermer" ; ici 5

Code : Tout sélectionner

For a = 0 To 4
	Debug PeekL(?mon_label + a * SizeOf(Long))
Next

*pointeur = ?Deuxieme_label

Debug PeekS(*pointeur)


DataSection
	mon_label:
	
	Data.l 1, 2, 3, 4, 5
	
	Deuxieme_label:
	
	Data.s "UNE CHAINE DE CARACTERE"
EndDataSection

Code : Tout sélectionner

Restore menu:

for i =1 to 255
	Read.s a$
	if a$<>"-1"
		debug a$
		Else 
		Break
	Endif
Next i
End

Datasection
	menu:
	Data.s "Fichier","Nouveau", "Ouvrir", "Enregistrer", "Fermer"
	Data.s "image","son", "imprimer", "modifier", "desintegrer" 
	Data.s "option1","option2", "option3", "option4", "option5","-1"  ; ici le "-1" indique la fin du bloc
EndDataSection

; 

; EPB

Code : Tout sélectionner

;;;calldebugger
Restore menu:

for i =1 to 255
	Read.s a$
	if a$="-1"
		Break
	Endif
	
	while a$<>"1"
		Read.s a$
		ligne$=ligne$+a$
	Wend
	
	while a$<>"2"
		Read.s a$
		ligne2$=ligne2$+a$
	Wend
	
	while a$<>"°"
		Read.s a$
		ligne3$=ligne3$+a$
	Wend
Next i
Debug "la ligne 1 contient :" +Removestring(ligne$,"1") 
Debug "la ligne 2 contient :" +Removestring(ligne2$,"2")
Debug "la ligne 3 contient :" +Removestring(ligne3$,"°")
End

Datasection
	menu:
	Data.s "Fichier","Nouveau", "Ouvrir", "Enregistrer", "Fermer","1"  ; ici le "1" indiquera la fin de ligne
	Data.s "image","son", "imprimer", "modifier", "desintegrer" ,"2" ; ici le "2" indiquera la fin de ligne
	Data.s "option1","option2", "option3", "option4", "option5","°" ; ici le "°" indiquera la fin de ligne ( j'ai utilisé "°" puisqu'il y a des chiffres dans le nom des menus.. ça evite les embrouilles avec le removestring())
	Data.s "-1"  ; ici le "-1" indiquera la fin de bloc
EndDataSection

; 

; EPB

Code : Tout sélectionner

string.s = Space(?endstr-?string)
PokeS(@string, PeekS(?string,?endstr-?string))

Debug string
End

DataSection
  string:
  Data.s "Copié deux foix dans la ram!"
  endstr:
EndDataSection