C' est ici, et nul part ailleurs. « Et pis c'est tout ! » | Bonsoir à Tous.
Un petit Bout de Code,
qui peut rendre Service.
Testeurs, vos remarques,
seront les bienvenues.
Merci.
Reivillo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| ' Gambas class file
' [GB3]Fichier Binaire Écrire & Lire.
' Fichier Binaire éditable avec GHex,
' installable via la Logithèque.
'
PUBLIC SUB form_Open()
DIM sPathFile AS STRING
DIM SstringTest AS STRING = Chr$(1) & "Pour Tester avec" & Chr$(0) & "Caractère non Imprimable."
PRINT SstringTest
'Récupère le Chemin du Dossier de l'Utilisateur connecté.
SHELL "echo $HOME" TO sPathFile
'Supprime le caractère de Fin de chaîne,
'et rajoute le Nom du Fichier Binaire Cible.
'Ici " /myFileBin.bin ", par Défaut.
sPathFile = Trim$(sPathFile) & "/myFileBin.bin"
'Enregistre la Variable " SstringTest ", dans le Fichier Binaire Cible.
WriteFileBin(SstringTest, sPathFile)
'Affiche le Fichier Binaire Cible dans la Console.
PRINT ReadFileBin(sPathFile)
END
PUBLIC SUB WriteFileBin(sString AS STRING, sPathFile AS STRING)
DIM hMyFile AS File
DIM iLen, iWhl AS INTEGER
iLen = Len(sString)
iWhl = 1
hMyFile = OPEN sPathFile FOR CREATE
WHILE iWhl <= iLen
WRITE #hMyFile, Mid$(sString, iWhl, 1)
INC iWhl
WEND
CLOSE hMyFile
PRINT " myFileBin.bin is Créate."
PRINT
END
PUBLIC FUNCTION ReadFileBin(sSTring AS STRING) AS STRING
DIM hMyFile AS File
DIM iByte AS BYTE
hMyFile = OPEN sSTring FOR READ
sSTring = ""
WHILE NOT Eof(hMyFile)
READ #hMyFile, iByte
sSTring = sSTring & Chr$(iByte)
WEND
CLOSE hMyFile
PRINT " myFileBin.bin Contains:"
RETURN sSTring
END
|
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015) LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous... sudo add-apt-repository ppa:gambas-team/gambas3sudo apt-get updatesudo apt-get install gambas3 -yGambas3.8.4-57.47 ( Mise à Jour Auto via mintupdate le 28-01-2016) Pour la Doc, c'est vers là: Documentation Gambas3 FR |