Message de Jovial date 2008-01-02 21:44 :
Bonjour
Bernard Marcelly a écrit :
Message de Jovial date 2007-12-29 13:55 :
Bonjour
J'ai un document ou j'aurai besoin sauvegarder les infos boite de
dialogue sans passer par un fichier externe.
Eh bien mets un contrôle ! (ou plusieurs)
Dépose un contrôle Etiquette, en effaçant son champ Titre. Cela donne un
contrôle totalement invisible.
Ben oui c'est une bonne idée pour mon cas cela suffira.
Par contre si j'ai 50 chaines à stocker cela devient pas pratique, la
question qui me vient c'est: puisque mon l'odt est une archive peut
créer lire et écrire un fichier texte (ou xml) par macro à l'intérieur
même de mon fichier ?
Je préfère les solutions simples.
Une chaîne a en général moins de 100 caractères, alors qu'elle peut en
contenir plus de 65000.
Dans cet exemple je mémorise 101 chaînes dans une seule chaîne appelée
memoire.
Dim monBesoin(100) As String, memoire As String
Dim x As Long
' remplissage
for x = 0 to UBound(monBesoin)
monBesoin(x) = "taratata" & x
next
memoire = join(monBesoin(), chr(1000))
' effacer tout
redim monBesoin(100) As String
print monBesoin(75) ' vérif : chaîne vide
' --- récupérer les chaînes
monBesoin = split(memoire, chr(1000))
print monBesoin(75), monBesoin(0) ' on a récupéré les valeurs
J'ai supposé que les chaînes n'utilisent pas le caractère de valeur
Unicode 1000.
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
