PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → convertion d'une fonction VB en windev
convertion d'une fonction VB en windev
Iniciado por l.lanchas, 10,nov. 2004 10:51 - 9 respuestas
Publicado el 10,noviembre 2004 - 10:51
Bonjour ,

je souhaite accéder a un fichier .bin ,

En VB cette fonction me permet de l'ouvrir :

open("nomdufichier",for bynaire access read as #1)

ensuite les fonction SCEEK et GET me permettent de naviguer dans le fichier en leurs adressant des adresses

Comment je peux faire la même chose avec windev ( surtout est ce que c'est possible )


la fonction chargetexte ne marche pas



merci d'avance
Publicado el 10,noviembre 2004 - 12:03
Je pense que la fonction fOuvre te sera plus utile.

-----------
Petit Malin


"Ludovic lanchas" <l.lanchas@clemessy.fr> a écrit dans le message de news:
4191ccee@news.pcsoft.fr...


Bonjour ,

je souhaite accéder a un fichier .bin ,

En VB cette fonction me permet de l'ouvrir :

open("nomdufichier",for bynaire access read as #1)

ensuite les fonction SCEEK et GET me permettent de naviguer dans le
fichier en leurs adressant des adresses

Comment je peux faire la même chose avec windev ( surtout est ce que c'est
possible )


la fonction chargetexte ne marche pas



merci d'avance


Publicado el 10,noviembre 2004 - 12:12
Salut

Désolé, mais la commande ChargeTexte marche très bien. Je l'ai déjà utilisée à plusieurs reprises, y compris sur des fichiers binaires.

Voici un petit code qui te permettra de le vérifier :


buffer est une chaîne fixe sur 10000
i est un entier
s est une chaîne
c est un caractère

buffer = fChargeTexte("c:\windows\system32\win.com")

SI buffer = "" ALORS
Erreur(ErreurInfo())
SINON
// affiche les 255 premiers caractères
FOR i=0 A 254
Transfert(&c, &buffer + i, 1)
SI Asc(c) < 32 ALORS
s += "("+Asc(c)+")"
SINON
s += c
FIN
FIN
FIN
Info(s)

Et le résultat resselmble à ça:

MZ(0)(3)(0)(0)(0)(4)(0)(0)(0)ÿÿ(0)(0)¸(0)(0)(0)(0)(0)(0)(0)@(0)(0)(0)(0)(0)(0)
(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)(0)
(0)(0)Ø(0)(0)(0)(14)(31)º(14)(0)´(9)Í!¸(1)LÍ!This program cannot be run in DOS mode.(13)(13)(10)$(0)(0)(0)(0)(0)(0)(0)(6)Í(2)©B¬lúB¬lúB¬lú¸uúA¬lúB¬mún¬lú
¸,úE¬lú˜qúC¬lúՏ)úC¬lú˜pú_¬lú¸QúC¬lúRichB¬lú(0)(0)(0)(0)(0)(0)(0)(0)PE(0)(0)
L(1)(3)(0)y…};(0)(0)(0)(0)(0)(0)(0)(0)à(0)(15)(1)(11)(1)(7)(0)(0)<(0)(0)(0)(12)
(0)(0)(0)(0)(0)


Ciao
http://wdgotcha.atspace.com
Publicado el 10,noviembre 2004 - 12:20
aucun paramètres de cette fonction ne correspond
Publicado el 10,noviembre 2004 - 12:23
Je pense qui'il faut simplement utiliser fouvre, fpositionne et flit
Publicado el 10,noviembre 2004 - 12:28
Ok pour chargetexte mais mon client me donne une adresse hexa pour rechercher une info comment retrouver le bon caractère
Publicado el 10,noviembre 2004 - 12:30
ne correpospond à quoi ?

Aide fOuvre (Windev7.5)
Les constantes FOTexte (ouverture en mode texte) et FOBinaire (ouverture en
mode binaire) ne sont plus nécessaires. Elles sont remplacées par la valeur
0. Dans ce cas, fOuvre tente d'ouvrir le fichier en lecture/écriture.

"Ludovic lanchas" <l.lanchas@clemessy.fr> a écrit dans le message de news:
4191e1e2@news.pcsoft.fr...


aucun paramètres de cette fonction ne correspond


Publicado el 10,noviembre 2004 - 12:48
ok pour l'ouverture mais quand je lui demande de lire avec flit avec une adresse j'ai une erreur
Publicado el 10,noviembre 2004 - 12:54
adr est un entier //adresse donnee par ton client
nbOct est un entier //nbre d octets a lire
res est un entier //resultat de fPositionne
resultat est une chaine //ce que tu veux lire
adr = 0xA3 //par exemple, et 0x puisque c'est en héxa
IdFichier = fOuvre("C:\MesRépertoires\Fichier.txt", foLectureEcriture)
SI IdFichier <> -1 ALORS

fPositionne(IdFichier, adr, fpDébut)
ResLecture = fLit(IdFichier, 200)
....
FIN
//fermeture du fichier


-----------
Petit Malin

"Ludovic lanchas" <l.lanchas@clemessy.fr> a écrit dans le message de news:
4191e866$1@news.pcsoft.fr...



ok pour l'ouverture mais quand je lui demande de lire avec flit avec une
adresse j'ai une erreur

Publicado el 10,noviembre 2004 - 16:15
Salut

Aide toi et le ciel t'aidera. Tu as reçu plein de réponses valables. Mais ça part dans tous les sens. Refais un post plus préçis, ce sera mieux.

Ciao
http://wdgotcha.atspace.com