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
» Détection connexion internet
par JL35 Hier à 22:59

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Dim 23 Juil 2017 - 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
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: