FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Tout est tranquille
par Jean Claude Hier à 21:41

» Texte en gif animé
par JL35 Hier à 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

» Problème avec la 3D.
par Jack Jeu 14 Sep 2017 - 18:06

» Test de la 3D.
par mindstorm Mer 13 Sep 2017 - 19:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 1.94 du 26 Février 2013: ajout ReplaceStringInBinaryFile

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: 1.94 du 26 Février 2013: ajout ReplaceStringInBinaryFile   Mar 26 Fév 2013 - 12:31

Nouvelle version:
KGF.dll V1.94 du 24 Février 2013

J'ai ajouté une fonction à la gestion des fichiers binaires, pour pouvoir modifier facilement une partie des données à l'intérieur du fichier:

1. Remplacer n octets à partir de la position p
Si flag%=0: les n octets seront remplacés par la chaîne fournie, même si cela conduit à un changement de longueur du fichier
si flag%=1: on remplace systématiquement n octets. Si la chaîne fournie est plus courte, elle sera complétée par le caractère fill$. Si elle est plus longue, elle sera tronquée.
KGF.dll: res% = dll_call6("ReplaceStringInBinaryFile",adr(nom$),adr(buf$),adr(fill$),n%,p%,flag%)
KGF_SUB.bas: ReplaceStringInBinaryFile(nom$,buf$,fill$,n%,p%,flag%)

Et voici le programme de démo montrant cette fonction:
Code:
' demo_fichiers_binaires.bas

label lecture, creation, ajout, remplacement

dim res%, buf$, nom$, fill$, i%, n%, p%, flag%

KGF_initialize("KGF.dll")

open_dialog 1
save_dialog 2

height 0,600

button 101 : top 101,10 : left 101,10 : caption 101,"Lecture"
  on_click 101,lecture
button 102 : top 102,40 : left 102,10 : caption 102,"Création"
  on_click 102,creation
button 103 : top 103,70 : left 103,10 : caption 103,"Ajout"
  on_click 103,ajout

memo 201 : top 201,10 : left 201,200 : width 201,300 : height 201,300

alpha 202 : top 202,340 : left 202,200 : caption 202,"Longueur:"
alpha 203 : top 203,340 : left 203,280 : caption 203,"Start:"
alpha 204 : top 204,340 : left 204,360 : caption 204,"Remplissage:"
edit 212 : top 212,360 : left 212,200 : width 212,70
edit 213 : top 213,360 : left 213,280 : width 213,70
edit 214 : top 214,360 : left 214,360 : width 214,30
text 212,"1" : text 213,"1" : text 214,"0"
alpha 205 : top 205,390 : left 205,200 : caption 205,"Nouveau contenu:"
edit 215 : top 215,410 : left 215,200 : width 215,300
check 216 : top 216,440 : left 216,200 : width 216,300
  caption 216,"Tronquer/compléter les données si nécessaire"
button 104 : top 104,470 : left 104,200 : caption 104,"Remplacement"
  on_click 104,remplacement

end

lecture:
  nom$ = file_name$(1)
  if nom$="_" then return
  ReadBinaryFileToString(nom$)
  clear 201
  item_add 201,ReadBinaryFileToString$
  return
 
creation:
  nom$ = file_name$(2)
  if nom$="_" then return
  if file_exists(nom$)=1
    message "Refusé."
    return
  end_if
  if count(201)=0
    message "Vide."
    return
  end_if
  buf$ = ""
  for i%=1 to count(201)
    buf$ = buf$ + item_read$(201,i%) + chr$(13) + chr$(10)
  next i%
  WriteStringToBinaryFile(nom$,buf$)
  return
 
ajout:
  nom$ = file_name$(1)
  if nom$="_" then return
  if count(201)=0
    message "Vide."
    return
  end_if
  buf$ = ""
  for i%=1 to count(201)
    buf$ = buf$ + item_read$(201,i%) + chr$(13) + chr$(10)
  next i%
  AppendStringToBinaryFile(nom$,buf$)
  return

remplacement:
  nom$ = file_name$(1)
  if nom$="_" then return
  buf$ = text$(215)
  n% = val(text$(212))
  p% = val(text$(213))
  fill$ = chr$(val(text$(214)))
  flag% = checked(216)
  ReplaceStringInBinaryFile(nom$,buf$,fill$,n%,p%,flag%)
  return

#INCLUDE "KGF_SUB.bas"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
 
1.94 du 26 Février 2013: ajout ReplaceStringInBinaryFile
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Février 2013] Quelques nouveautés et informations !
» [festival] - Le Troll et légende - le 29, 30, 31 mars 2013
» [Résolu] Comment Transférer d'un carte SD à Mapsource CN Europe 2013
» pas de carte 2013 après téléchargement
» Quelques captures de Comodo Internet Security 2013

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: