Comment affecter un fichier à un variable string, permettant ensuite de
faire des recherches texte dans cette variable, soit par exemple:
dim var string
get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en
objet), que je ne retrouve pas...
Heu, je ne veux pas de redim, car ça impose un tableau, et donc les
recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du
fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à
convertir tous les octets de la variable string en valeurs ascii
correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
------------------------------------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Picalausa François
Hello,
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple à adapter): Private Function GetFileContent(FilePath As String) As String Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber GetFileContent = String$(vbNullChar, Lof(FreeFileNumber)) Get FreeFileNumber,,GetFileContent Close FreeFileNumber End Function
Pour travailler avec un tableau de bytes dessus, une des techniques consiste à mapper un safe_array sur la chaine: Tu peux retrouver le safe array comme ceci: http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en& Ensuite, il "suffit" de modifier le safearray et quand tu as finit de restaurer le safearray Sinon, technique plus gourmande: a = "blah" 'b = a 'UNICODE b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b) Debug.Print b(i) Next i
-- Picalausa François
"X" <x> a écrit dans le message de news:
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite de faire des recherches texte dans cette variable, soit par exemple:
dim var string get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en objet), que je ne retrouve pas... Heu, je ne veux pas de redim, car ça impose un tableau, et donc les recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à convertir tous les octets de la variable string en valeurs ascii correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm ------------------------------------------------------------------------------------
Hello,
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple à
adapter):
Private Function GetFileContent(FilePath As String) As String
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber
GetFileContent = String$(vbNullChar, Lof(FreeFileNumber))
Get FreeFileNumber,,GetFileContent
Close FreeFileNumber
End Function
Pour travailler avec un tableau de bytes dessus, une des techniques consiste
à mapper un safe_array sur la chaine:
Tu peux retrouver le safe array comme ceci:
http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en&
Ensuite, il "suffit" de modifier le safearray et quand tu as finit de
restaurer le safearray
Sinon, technique plus gourmande:
a = "blah"
'b = a 'UNICODE
b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b)
Debug.Print b(i)
Next i
--
Picalausa François
"X" <x> a écrit dans le message de news:
OrfzAJ5JGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite de
faire des recherches texte dans cette variable, soit par exemple:
dim var string
get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en
objet), que je ne retrouve pas...
Heu, je ne veux pas de redim, car ça impose un tableau, et donc les
recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du
fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à
convertir tous les octets de la variable string en valeurs ascii
correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
------------------------------------------------------------------------------------
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple à adapter): Private Function GetFileContent(FilePath As String) As String Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber GetFileContent = String$(vbNullChar, Lof(FreeFileNumber)) Get FreeFileNumber,,GetFileContent Close FreeFileNumber End Function
Pour travailler avec un tableau de bytes dessus, une des techniques consiste à mapper un safe_array sur la chaine: Tu peux retrouver le safe array comme ceci: http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en& Ensuite, il "suffit" de modifier le safearray et quand tu as finit de restaurer le safearray Sinon, technique plus gourmande: a = "blah" 'b = a 'UNICODE b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b) Debug.Print b(i) Next i
-- Picalausa François
"X" <x> a écrit dans le message de news:
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite de faire des recherches texte dans cette variable, soit par exemple:
dim var string get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en objet), que je ne retrouve pas... Heu, je ne veux pas de redim, car ça impose un tableau, et donc les recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à convertir tous les octets de la variable string en valeurs ascii correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm ------------------------------------------------------------------------------------
X
Merci :o)
"Picalausa François" a écrit dans le message de news:
Hello,
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple à adapter): Private Function GetFileContent(FilePath As String) As String Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber GetFileContent = String$(vbNullChar, Lof(FreeFileNumber)) Get FreeFileNumber,,GetFileContent Close FreeFileNumber End Function
Pour travailler avec un tableau de bytes dessus, une des techniques consiste à mapper un safe_array sur la chaine: Tu peux retrouver le safe array comme ceci: http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en& Ensuite, il "suffit" de modifier le safearray et quand tu as finit de restaurer le safearray Sinon, technique plus gourmande: a = "blah" 'b = a 'UNICODE b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b) Debug.Print b(i) Next i
-- Picalausa François
"X" <x> a écrit dans le message de news:
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite de faire des recherches texte dans cette variable, soit par exemple:
dim var string get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en objet), que je ne retrouve pas... Heu, je ne veux pas de redim, car ça impose un tableau, et donc les recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à convertir tous les octets de la variable string en valeurs ascii correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm ------------------------------------------------------------------------------------
Merci :o)
"Picalausa François" <fpicalausa@chez.com> a écrit dans le message de news:
u8TB4w5JGHA.3944@tk2msftngp13.phx.gbl...
Hello,
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple
à adapter):
Private Function GetFileContent(FilePath As String) As String
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber
GetFileContent = String$(vbNullChar, Lof(FreeFileNumber))
Get FreeFileNumber,,GetFileContent
Close FreeFileNumber
End Function
Pour travailler avec un tableau de bytes dessus, une des techniques
consiste à mapper un safe_array sur la chaine:
Tu peux retrouver le safe array comme ceci:
http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en&
Ensuite, il "suffit" de modifier le safearray et quand tu as finit de
restaurer le safearray
Sinon, technique plus gourmande:
a = "blah"
'b = a 'UNICODE
b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b)
Debug.Print b(i)
Next i
--
Picalausa François
"X" <x> a écrit dans le message de news:
OrfzAJ5JGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite
de faire des recherches texte dans cette variable, soit par exemple:
dim var string
get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en
objet), que je ne retrouve pas...
Heu, je ne veux pas de redim, car ça impose un tableau, et donc les
recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du
fichier, est-il possible (je ne vois pas comment, sauf octet par octet),
à convertir tous les octets de la variable string en valeurs ascii
correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
------------------------------------------------------------------------------------
"Picalausa François" a écrit dans le message de news:
Hello,
Pour lire un fichier vers une string (de mémoire, mais c'est assez simple à adapter): Private Function GetFileContent(FilePath As String) As String Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FilePath For Binary Read As FreeFileNumber GetFileContent = String$(vbNullChar, Lof(FreeFileNumber)) Get FreeFileNumber,,GetFileContent Close FreeFileNumber End Function
Pour travailler avec un tableau de bytes dessus, une des techniques consiste à mapper un safe_array sur la chaine: Tu peux retrouver le safe array comme ceci: http://groups.google.com/group/microsoft.public.fr.vb/msg/25c6fa9be6f96aa4?hl=en& Ensuite, il "suffit" de modifier le safearray et quand tu as finit de restaurer le safearray Sinon, technique plus gourmande: a = "blah" 'b = a 'UNICODE b = StrConv(a, vbFromUnicode)
For i = LBound(b) To UBound(b) Debug.Print b(i) Next i
-- Picalausa François
"X" <x> a écrit dans le message de news:
Bonjour,
Comment affecter un fichier à un variable string, permettant ensuite de faire des recherches texte dans cette variable, soit par exemple:
dim var string get p, 1, var
Mais là ça marche pas, j'avais déjà vu un exemple (avec transformation en objet), que je ne retrouve pas... Heu, je ne veux pas de redim, car ça impose un tableau, et donc les recherches texte ne fonctionnent pas...
ET
Partant de ce principe d'avoir une variable texte qui a le contenu du fichier, est-il possible (je ne vois pas comment, sauf octet par octet), à convertir tous les octets de la variable string en valeurs ascii correspondant, tout d'un coup ???
--
Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm ------------------------------------------------------------------------------------
