bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je suis
kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
- récuperer le code html de la page en question dans une variable ou
un fichier (je pense que oui, mais je ne sais pas comment?)
- analyser ce code et en extraire quelques lignes commencant par dSI(
et finissant par "); (se sont les seules à commencer par dSI de tt la
page) dans ces lignes j'ai soit des valeurs numériques soit des
valeurs texte qui sont entre " ", chaque variable est de toute facon
séparée de la suivante par une virgule
- récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
Long
Private Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath App.Path
& ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> bonjour
> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> - ouverture d'une page html dont on connait l'url (reponse : je suis
> kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> - récuperer le code html de la page en question dans une variable ou
> un fichier (je pense que oui, mais je ne sais pas comment?)
> - analyser ce code et en extraire quelques lignes commencant par dSI(
> et finissant par "); (se sont les seules à commencer par dSI de tt la
> page) dans ces lignes j'ai soit des valeurs numériques soit des
> valeurs texte qui sont entre " ", chaque variable est de toute facon
> séparée de la suivante par une virgule
> - récupérer certaine (toute?) de ces variables.
>
> ceci représenterai la premiere partie de mon application.
>
> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> sur la bonne voie pour commencer ce script ?
>
> Merci d'avance
> Elicend
Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
Long
Private Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath App.Path
& ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> bonjour
> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> - ouverture d'une page html dont on connait l'url (reponse : je suis
> kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> - récuperer le code html de la page en question dans une variable ou
> un fichier (je pense que oui, mais je ne sais pas comment?)
> - analyser ce code et en extraire quelques lignes commencant par dSI(
> et finissant par "); (se sont les seules à commencer par dSI de tt la
> page) dans ces lignes j'ai soit des valeurs numériques soit des
> valeurs texte qui sont entre " ", chaque variable est de toute facon
> séparée de la suivante par une virgule
> - récupérer certaine (toute?) de ces variables.
>
> ceci représenterai la premiere partie de mon application.
>
> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> sur la bonne voie pour commencer ce script ?
>
> Merci d'avance
> Elicend
Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
Long
Private Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath App.Path
& ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> bonjour
> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> - ouverture d'une page html dont on connait l'url (reponse : je suis
> kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> - récuperer le code html de la page en question dans une variable ou
> un fichier (je pense que oui, mais je ne sais pas comment?)
> - analyser ce code et en extraire quelques lignes commencant par dSI(
> et finissant par "); (se sont les seules à commencer par dSI de tt la
> page) dans ces lignes j'ai soit des valeurs numériques soit des
> valeurs texte qui sont entre " ", chaque variable est de toute facon
> séparée de la suivante par une virgule
> - récupérer certaine (toute?) de ces variables.
>
> ceci représenterai la premiere partie de mon application.
>
> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> sur la bonne voie pour commencer ce script ?
>
> Merci d'avance
> Elicend
ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code que tu
m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" a écrit dans le message de
news:%
> Salut,
>
> Si j'ai bien compris, essaye ceci (dans un module) :
>
> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
> Long
> Private Function DownloadFile(URL As String, LocalFilename As String) As
> Boolean
> Dim lngRetVal As Long
> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> If lngRetVal = 0 Then DownloadFile = True
> End Function
>
> Public Function AppPath()
> 'répertoire de l'appli
> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > App.Path
> & ""
> End Function
>
>
> Public Function OuvrURL(sPage As String) As String
> Dim sTmpC As String, k As Integer, Buff As String
> sTmpC = AppChe & Int(Timer) & ".dl"
> DownloadFile sPage, sTmpC
> k = FreeFile
> Open sTmpC For Binary As #k
> Buff = Space$(LOF(k))
> Get #k, , Buff
> Close #k
> OuvrURL = Buff
> Buff = ""
> On Error Resume Next
> Kill sTmpC
> End Function
>
> Public Sub ParsePage(sURL As String)
> Dim sPage As String, tblLignes() As String, i As Integer
> 'récupère le code de la page
> sPage = OuvrURL(sURL) & vbCrLf
> 'sépare les lignes dans un tableau
> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> For i = 0 To UBound(tblLignes)
> 'pour chaque ligne on vérifie
> If tblLignes(i) Like "dSI*""" Then
> MsgBox "On a une ligne : " & tblLignes(i)
> End If
> Next
> sPage = ""
> Erase tblLignes
> End Sub
>
> Ensuite pour l'utiliser fais :
>
> Call ParsePage("http://www.site.com/page.ext")
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > bonjour
> > je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > - ouverture d'une page html dont on connait l'url (reponse : je suis
> > kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> > - récuperer le code html de la page en question dans une variable ou
> > un fichier (je pense que oui, mais je ne sais pas comment?)
> > - analyser ce code et en extraire quelques lignes commencant par dSI(
> > et finissant par "); (se sont les seules à commencer par dSI de tt la
> > page) dans ces lignes j'ai soit des valeurs numériques soit des
> > valeurs texte qui sont entre " ", chaque variable est de toute facon
> > séparée de la suivante par une virgule
> > - récupérer certaine (toute?) de ces variables.
> >
> > ceci représenterai la premiere partie de mon application.
> >
> > Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> > sur la bonne voie pour commencer ce script ?
> >
> > Merci d'avance
> > Elicend
>
>
ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code que tu
m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" <ng@babeuk.net> a écrit dans le message de
news:%23qNKzHD5DHA.2404@TK2MSFTNGP11.phx.gbl...
> Salut,
>
> Si j'ai bien compris, essaye ceci (dans un module) :
>
> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
> Long
> Private Function DownloadFile(URL As String, LocalFilename As String) As
> Boolean
> Dim lngRetVal As Long
> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> If lngRetVal = 0 Then DownloadFile = True
> End Function
>
> Public Function AppPath()
> 'répertoire de l'appli
> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > App.Path
> & ""
> End Function
>
>
> Public Function OuvrURL(sPage As String) As String
> Dim sTmpC As String, k As Integer, Buff As String
> sTmpC = AppChe & Int(Timer) & ".dl"
> DownloadFile sPage, sTmpC
> k = FreeFile
> Open sTmpC For Binary As #k
> Buff = Space$(LOF(k))
> Get #k, , Buff
> Close #k
> OuvrURL = Buff
> Buff = ""
> On Error Resume Next
> Kill sTmpC
> End Function
>
> Public Sub ParsePage(sURL As String)
> Dim sPage As String, tblLignes() As String, i As Integer
> 'récupère le code de la page
> sPage = OuvrURL(sURL) & vbCrLf
> 'sépare les lignes dans un tableau
> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> For i = 0 To UBound(tblLignes)
> 'pour chaque ligne on vérifie
> If tblLignes(i) Like "dSI*""" Then
> MsgBox "On a une ligne : " & tblLignes(i)
> End If
> Next
> sPage = ""
> Erase tblLignes
> End Sub
>
> Ensuite pour l'utiliser fais :
>
> Call ParsePage("http://www.site.com/page.ext")
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > bonjour
> > je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > - ouverture d'une page html dont on connait l'url (reponse : je suis
> > kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> > - récuperer le code html de la page en question dans une variable ou
> > un fichier (je pense que oui, mais je ne sais pas comment?)
> > - analyser ce code et en extraire quelques lignes commencant par dSI(
> > et finissant par "); (se sont les seules à commencer par dSI de tt la
> > page) dans ces lignes j'ai soit des valeurs numériques soit des
> > valeurs texte qui sont entre " ", chaque variable est de toute facon
> > séparée de la suivante par une virgule
> > - récupérer certaine (toute?) de ces variables.
> >
> > ceci représenterai la premiere partie de mon application.
> >
> > Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> > sur la bonne voie pour commencer ce script ?
> >
> > Merci d'avance
> > Elicend
>
>
ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code que tu
m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" a écrit dans le message de
news:%
> Salut,
>
> Si j'ai bien compris, essaye ceci (dans un module) :
>
> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As
> Long
> Private Function DownloadFile(URL As String, LocalFilename As String) As
> Boolean
> Dim lngRetVal As Long
> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> If lngRetVal = 0 Then DownloadFile = True
> End Function
>
> Public Function AppPath()
> 'répertoire de l'appli
> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > App.Path
> & ""
> End Function
>
>
> Public Function OuvrURL(sPage As String) As String
> Dim sTmpC As String, k As Integer, Buff As String
> sTmpC = AppChe & Int(Timer) & ".dl"
> DownloadFile sPage, sTmpC
> k = FreeFile
> Open sTmpC For Binary As #k
> Buff = Space$(LOF(k))
> Get #k, , Buff
> Close #k
> OuvrURL = Buff
> Buff = ""
> On Error Resume Next
> Kill sTmpC
> End Function
>
> Public Sub ParsePage(sURL As String)
> Dim sPage As String, tblLignes() As String, i As Integer
> 'récupère le code de la page
> sPage = OuvrURL(sURL) & vbCrLf
> 'sépare les lignes dans un tableau
> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> For i = 0 To UBound(tblLignes)
> 'pour chaque ligne on vérifie
> If tblLignes(i) Like "dSI*""" Then
> MsgBox "On a une ligne : " & tblLignes(i)
> End If
> Next
> sPage = ""
> Erase tblLignes
> End Sub
>
> Ensuite pour l'utiliser fais :
>
> Call ParsePage("http://www.site.com/page.ext")
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > bonjour
> > je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > - ouverture d'une page html dont on connait l'url (reponse : je suis
> > kasi sur que oui mais a vrai dire ca ne m'est pas indispensable!)
> > - récuperer le code html de la page en question dans une variable ou
> > un fichier (je pense que oui, mais je ne sais pas comment?)
> > - analyser ce code et en extraire quelques lignes commencant par dSI(
> > et finissant par "); (se sont les seules à commencer par dSI de tt la
> > page) dans ces lignes j'ai soit des valeurs numériques soit des
> > valeurs texte qui sont entre " ", chaque variable est de toute facon
> > séparée de la suivante par une virgule
> > - récupérer certaine (toute?) de ces variables.
> >
> > ceci représenterai la premiere partie de mon application.
> >
> > Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> > sur la bonne voie pour commencer ce script ?
> >
> > Merci d'avance
> > Elicend
>
>
les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
salut
j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
je me suis basé sur la meme architecture pour analyser les lignes et
séparer toutes les variables contenu dans la ligne en faisant un
split sur les virgules, mais, j'obtiens mes valeurs numériques sans
pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
par exemple ), par contre, les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
en tout cas merci beaucoup pour le super coup de main ;)
elicend
"Elicend_News" a écrit dans le message
de news:401614ce$0$17125$ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
que tu m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" a écrit dans le message de
news:%Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As
String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath >>> App.Path & ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je
suis kasi sur que oui mais a vrai dire ca ne m'est pas
indispensable!) - récuperer le code html de la page en question
dans une variable ou un fichier (je pense que oui, mais je ne sais
pas comment?) - analyser ce code et en extraire quelques lignes
commencant par dSI( et finissant par "); (se sont les seules à
commencer par dSI de tt la page) dans ces lignes j'ai soit des
valeurs numériques soit des valeurs texte qui sont entre " ",
chaque variable est de toute facon séparée de la suivante par une
virgule - récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
salut
j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
je me suis basé sur la meme architecture pour analyser les lignes et
séparer toutes les variables contenu dans la ligne en faisant un
split sur les virgules, mais, j'obtiens mes valeurs numériques sans
pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
par exemple ), par contre, les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
en tout cas merci beaucoup pour le super coup de main ;)
elicend
"Elicend_News" <cenestpas@labonneadresse.fr> a écrit dans le message
de news:401614ce$0$17125$626a54ce@news.free.fr...
ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
que tu m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" <ng@babeuk.net> a écrit dans le message de
news:%23qNKzHD5DHA.2404@TK2MSFTNGP11.phx.gbl...
Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As
String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath >>> App.Path & ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je
suis kasi sur que oui mais a vrai dire ca ne m'est pas
indispensable!) - récuperer le code html de la page en question
dans une variable ou un fichier (je pense que oui, mais je ne sais
pas comment?) - analyser ce code et en extraire quelques lignes
commencant par dSI( et finissant par "); (se sont les seules à
commencer par dSI de tt la page) dans ces lignes j'ai soit des
valeurs numériques soit des valeurs texte qui sont entre " ",
chaque variable est de toute facon séparée de la suivante par une
virgule - récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
salut
j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
je me suis basé sur la meme architecture pour analyser les lignes et
séparer toutes les variables contenu dans la ligne en faisant un
split sur les virgules, mais, j'obtiens mes valeurs numériques sans
pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
par exemple ), par contre, les valeurs texte sont entourées de
guillemet! la suite de mon analuse serait donc :
-comment transformer "variable_texte" en variable_text
je suis sur que c'est juste une ligne de commande equivalente au
str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
hier soir ???
en tout cas merci beaucoup pour le super coup de main ;)
elicend
"Elicend_News" a écrit dans le message
de news:401614ce$0$17125$ok merci beaucoup !!
j'essaye ce soir ce bout de code qui me parait trés symatique :)
entre temps j'ai trouvé cette source,
http://www.vbfrance.com/code.aspx?ID`85
dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
que tu m'as donné, j'ai bien l'impression de palier à ce pb!
merci
elicend
"ng" a écrit dans le message de
news:%Salut,
Si j'ai bien compris, essaye ceci (dans un module) :
Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As
String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function AppPath()
'répertoire de l'appli
If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath >>> App.Path & ""
End Function
Public Function OuvrURL(sPage As String) As String
Dim sTmpC As String, k As Integer, Buff As String
sTmpC = AppChe & Int(Timer) & ".dl"
DownloadFile sPage, sTmpC
k = FreeFile
Open sTmpC For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
OuvrURL = Buff
Buff = ""
On Error Resume Next
Kill sTmpC
End Function
Public Sub ParsePage(sURL As String)
Dim sPage As String, tblLignes() As String, i As Integer
'récupère le code de la page
sPage = OuvrURL(sURL) & vbCrLf
'sépare les lignes dans un tableau
tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
For i = 0 To UBound(tblLignes)
'pour chaque ligne on vérifie
If tblLignes(i) Like "dSI*""" Then
MsgBox "On a une ligne : " & tblLignes(i)
End If
Next
sPage = ""
Erase tblLignes
End Sub
Ensuite pour l'utiliser fais :
Call ParsePage("http://www.site.com/page.ext")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:bonjour
je voudrais savoir si en VB on peut faire quelque chose comme ca:
- ouverture d'une page html dont on connait l'url (reponse : je
suis kasi sur que oui mais a vrai dire ca ne m'est pas
indispensable!) - récuperer le code html de la page en question
dans une variable ou un fichier (je pense que oui, mais je ne sais
pas comment?) - analyser ce code et en extraire quelques lignes
commencant par dSI( et finissant par "); (se sont les seules à
commencer par dSI de tt la page) dans ces lignes j'ai soit des
valeurs numériques soit des valeurs texte qui sont entre " ",
chaque variable est de toute facon séparée de la suivante par une
virgule - récupérer certaine (toute?) de ces variables.
ceci représenterai la premiere partie de mon application.
Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
sur la bonne voie pour commencer ce script ?
Merci d'avance
Elicend
Salut,
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
Ereg_replace() tu veux dire :)
Tu peux essayer ceci :
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
Ou encore :
sChaine = Entre(sChaine, """", """")
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
String
Dim i As Long
i = InStr(1, sCh, sQuoi, vbTextCompare)
If i > 0 Then
Entre = Mid$(sCh, i + Len(sQuoi))
i = InStr(1, Entre, sEtQuoi, vbTextCompare)
If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
End If
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> salut
>
> j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
>
> je me suis basé sur la meme architecture pour analyser les lignes et
> séparer toutes les variables contenu dans la ligne en faisant un
> split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> par exemple ), par contre, les valeurs texte sont entourées de
> guillemet! la suite de mon analuse serait donc :
> -comment transformer "variable_texte" en variable_text
>
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
>
> en tout cas merci beaucoup pour le super coup de main ;)
> elicend
>
>
> "Elicend_News" a écrit dans le message
> de news:401614ce$0$17125$
>> ok merci beaucoup !!
>>
>> j'essaye ce soir ce bout de code qui me parait trés symatique :)
>>
>> entre temps j'ai trouvé cette source,
>> http://www.vbfrance.com/code.aspx?ID`85
>>
>> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
>> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
>>
>> merci
>>
>> elicend
>>
>> "ng" a écrit dans le message de
>> news:%
>>> Salut,
>>>
>>> Si j'ai bien compris, essaye ceci (dans un module) :
>>>
>>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
>>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
>>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
>>> As Long) As Long
>>> Private Function DownloadFile(URL As String, LocalFilename As
>>> String) As Boolean
>>> Dim lngRetVal As Long
>>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
>>> If lngRetVal = 0 Then DownloadFile = True
>>> End Function
>>>
>>> Public Function AppPath()
>>> 'répertoire de l'appli
>>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > >>> App.Path & ""
>>> End Function
>>>
>>>
>>> Public Function OuvrURL(sPage As String) As String
>>> Dim sTmpC As String, k As Integer, Buff As String
>>> sTmpC = AppChe & Int(Timer) & ".dl"
>>> DownloadFile sPage, sTmpC
>>> k = FreeFile
>>> Open sTmpC For Binary As #k
>>> Buff = Space$(LOF(k))
>>> Get #k, , Buff
>>> Close #k
>>> OuvrURL = Buff
>>> Buff = ""
>>> On Error Resume Next
>>> Kill sTmpC
>>> End Function
>>>
>>> Public Sub ParsePage(sURL As String)
>>> Dim sPage As String, tblLignes() As String, i As Integer
>>> 'récupère le code de la page
>>> sPage = OuvrURL(sURL) & vbCrLf
>>> 'sépare les lignes dans un tableau
>>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
>>> For i = 0 To UBound(tblLignes)
>>> 'pour chaque ligne on vérifie
>>> If tblLignes(i) Like "dSI*""" Then
>>> MsgBox "On a une ligne : " & tblLignes(i)
>>> End If
>>> Next
>>> sPage = ""
>>> Erase tblLignes
>>> End Sub
>>>
>>> Ensuite pour l'utiliser fais :
>>>
>>> Call ParsePage("http://www.site.com/page.ext")
>>>
>>> --
>>> Nicolas G.
>>> FAQ VB : http://faq.vb.free.fr
>>> API Guide : http://www.allapi.net
>>> Google Groups : http://groups.google.fr/
>>> MZ-Tools : http://www.mztools.com/
>>>
>>> Elicend_News wrote:
>>>> bonjour
>>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
>>>> - ouverture d'une page html dont on connait l'url (reponse : je
>>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
>>>> indispensable!) - récuperer le code html de la page en question
>>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
>>>> pas comment?) - analyser ce code et en extraire quelques lignes
>>>> commencant par dSI( et finissant par "); (se sont les seules à
>>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
>>>> valeurs numériques soit des valeurs texte qui sont entre " ",
>>>> chaque variable est de toute facon séparée de la suivante par une
>>>> virgule - récupérer certaine (toute?) de ces variables.
>>>>
>>>> ceci représenterai la premiere partie de mon application.
>>>>
>>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
>>>> sur la bonne voie pour commencer ce script ?
>>>>
>>>> Merci d'avance
>>>> Elicend
Salut,
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
Ereg_replace() tu veux dire :)
Tu peux essayer ceci :
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
Ou encore :
sChaine = Entre(sChaine, """", """")
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
String
Dim i As Long
i = InStr(1, sCh, sQuoi, vbTextCompare)
If i > 0 Then
Entre = Mid$(sCh, i + Len(sQuoi))
i = InStr(1, Entre, sEtQuoi, vbTextCompare)
If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
End If
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> salut
>
> j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
>
> je me suis basé sur la meme architecture pour analyser les lignes et
> séparer toutes les variables contenu dans la ligne en faisant un
> split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> par exemple ), par contre, les valeurs texte sont entourées de
> guillemet! la suite de mon analuse serait donc :
> -comment transformer "variable_texte" en variable_text
>
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
>
> en tout cas merci beaucoup pour le super coup de main ;)
> elicend
>
>
> "Elicend_News" <cenestpas@labonneadresse.fr> a écrit dans le message
> de news:401614ce$0$17125$626a54ce@news.free.fr...
>> ok merci beaucoup !!
>>
>> j'essaye ce soir ce bout de code qui me parait trés symatique :)
>>
>> entre temps j'ai trouvé cette source,
>> http://www.vbfrance.com/code.aspx?ID`85
>>
>> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
>> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
>>
>> merci
>>
>> elicend
>>
>> "ng" <ng@babeuk.net> a écrit dans le message de
>> news:%23qNKzHD5DHA.2404@TK2MSFTNGP11.phx.gbl...
>>> Salut,
>>>
>>> Si j'ai bien compris, essaye ceci (dans un module) :
>>>
>>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
>>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
>>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
>>> As Long) As Long
>>> Private Function DownloadFile(URL As String, LocalFilename As
>>> String) As Boolean
>>> Dim lngRetVal As Long
>>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
>>> If lngRetVal = 0 Then DownloadFile = True
>>> End Function
>>>
>>> Public Function AppPath()
>>> 'répertoire de l'appli
>>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > >>> App.Path & ""
>>> End Function
>>>
>>>
>>> Public Function OuvrURL(sPage As String) As String
>>> Dim sTmpC As String, k As Integer, Buff As String
>>> sTmpC = AppChe & Int(Timer) & ".dl"
>>> DownloadFile sPage, sTmpC
>>> k = FreeFile
>>> Open sTmpC For Binary As #k
>>> Buff = Space$(LOF(k))
>>> Get #k, , Buff
>>> Close #k
>>> OuvrURL = Buff
>>> Buff = ""
>>> On Error Resume Next
>>> Kill sTmpC
>>> End Function
>>>
>>> Public Sub ParsePage(sURL As String)
>>> Dim sPage As String, tblLignes() As String, i As Integer
>>> 'récupère le code de la page
>>> sPage = OuvrURL(sURL) & vbCrLf
>>> 'sépare les lignes dans un tableau
>>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
>>> For i = 0 To UBound(tblLignes)
>>> 'pour chaque ligne on vérifie
>>> If tblLignes(i) Like "dSI*""" Then
>>> MsgBox "On a une ligne : " & tblLignes(i)
>>> End If
>>> Next
>>> sPage = ""
>>> Erase tblLignes
>>> End Sub
>>>
>>> Ensuite pour l'utiliser fais :
>>>
>>> Call ParsePage("http://www.site.com/page.ext")
>>>
>>> --
>>> Nicolas G.
>>> FAQ VB : http://faq.vb.free.fr
>>> API Guide : http://www.allapi.net
>>> Google Groups : http://groups.google.fr/
>>> MZ-Tools : http://www.mztools.com/
>>>
>>> Elicend_News wrote:
>>>> bonjour
>>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
>>>> - ouverture d'une page html dont on connait l'url (reponse : je
>>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
>>>> indispensable!) - récuperer le code html de la page en question
>>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
>>>> pas comment?) - analyser ce code et en extraire quelques lignes
>>>> commencant par dSI( et finissant par "); (se sont les seules à
>>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
>>>> valeurs numériques soit des valeurs texte qui sont entre " ",
>>>> chaque variable est de toute facon séparée de la suivante par une
>>>> virgule - récupérer certaine (toute?) de ces variables.
>>>>
>>>> ceci représenterai la premiere partie de mon application.
>>>>
>>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
>>>> sur la bonne voie pour commencer ce script ?
>>>>
>>>> Merci d'avance
>>>> Elicend
Salut,
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
Ereg_replace() tu veux dire :)
Tu peux essayer ceci :
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
Ou encore :
sChaine = Entre(sChaine, """", """")
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
String
Dim i As Long
i = InStr(1, sCh, sQuoi, vbTextCompare)
If i > 0 Then
Entre = Mid$(sCh, i + Len(sQuoi))
i = InStr(1, Entre, sEtQuoi, vbTextCompare)
If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
End If
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Elicend_News wrote:
> salut
>
> j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
>
> je me suis basé sur la meme architecture pour analyser les lignes et
> séparer toutes les variables contenu dans la ligne en faisant un
> split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> par exemple ), par contre, les valeurs texte sont entourées de
> guillemet! la suite de mon analuse serait donc :
> -comment transformer "variable_texte" en variable_text
>
> je suis sur que c'est juste une ligne de commande equivalente au
> str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> hier soir ???
>
> en tout cas merci beaucoup pour le super coup de main ;)
> elicend
>
>
> "Elicend_News" a écrit dans le message
> de news:401614ce$0$17125$
>> ok merci beaucoup !!
>>
>> j'essaye ce soir ce bout de code qui me parait trés symatique :)
>>
>> entre temps j'ai trouvé cette source,
>> http://www.vbfrance.com/code.aspx?ID`85
>>
>> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
>> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
>>
>> merci
>>
>> elicend
>>
>> "ng" a écrit dans le message de
>> news:%
>>> Salut,
>>>
>>> Si j'ai bien compris, essaye ceci (dans un module) :
>>>
>>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
>>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
>>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
>>> As Long) As Long
>>> Private Function DownloadFile(URL As String, LocalFilename As
>>> String) As Boolean
>>> Dim lngRetVal As Long
>>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
>>> If lngRetVal = 0 Then DownloadFile = True
>>> End Function
>>>
>>> Public Function AppPath()
>>> 'répertoire de l'appli
>>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > >>> App.Path & ""
>>> End Function
>>>
>>>
>>> Public Function OuvrURL(sPage As String) As String
>>> Dim sTmpC As String, k As Integer, Buff As String
>>> sTmpC = AppChe & Int(Timer) & ".dl"
>>> DownloadFile sPage, sTmpC
>>> k = FreeFile
>>> Open sTmpC For Binary As #k
>>> Buff = Space$(LOF(k))
>>> Get #k, , Buff
>>> Close #k
>>> OuvrURL = Buff
>>> Buff = ""
>>> On Error Resume Next
>>> Kill sTmpC
>>> End Function
>>>
>>> Public Sub ParsePage(sURL As String)
>>> Dim sPage As String, tblLignes() As String, i As Integer
>>> 'récupère le code de la page
>>> sPage = OuvrURL(sURL) & vbCrLf
>>> 'sépare les lignes dans un tableau
>>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
>>> For i = 0 To UBound(tblLignes)
>>> 'pour chaque ligne on vérifie
>>> If tblLignes(i) Like "dSI*""" Then
>>> MsgBox "On a une ligne : " & tblLignes(i)
>>> End If
>>> Next
>>> sPage = ""
>>> Erase tblLignes
>>> End Sub
>>>
>>> Ensuite pour l'utiliser fais :
>>>
>>> Call ParsePage("http://www.site.com/page.ext")
>>>
>>> --
>>> Nicolas G.
>>> FAQ VB : http://faq.vb.free.fr
>>> API Guide : http://www.allapi.net
>>> Google Groups : http://groups.google.fr/
>>> MZ-Tools : http://www.mztools.com/
>>>
>>> Elicend_News wrote:
>>>> bonjour
>>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
>>>> - ouverture d'une page html dont on connait l'url (reponse : je
>>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
>>>> indispensable!) - récuperer le code html de la page en question
>>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
>>>> pas comment?) - analyser ce code et en extraire quelques lignes
>>>> commencant par dSI( et finissant par "); (se sont les seules à
>>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
>>>> valeurs numériques soit des valeurs texte qui sont entre " ",
>>>> chaque variable est de toute facon séparée de la suivante par une
>>>> virgule - récupérer certaine (toute?) de ces variables.
>>>>
>>>> ceci représenterai la premiere partie de mon application.
>>>>
>>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
>>>> sur la bonne voie pour commencer ce script ?
>>>>
>>>> Merci d'avance
>>>> Elicend
merci bien!
comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
suis hyper content de voir mon appli avancer a grand pas :)
"ng" a écrit dans le message de
news:
> Salut,
>
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> Ereg_replace() tu veux dire :)
>
> Tu peux essayer ceci :
>
> If sChaine Like """*""" Then
> sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> End If
>
> Ou encore :
>
> sChaine = Entre(sChaine, """", """")
>
> Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
As
> String
> Dim i As Long
> i = InStr(1, sCh, sQuoi, vbTextCompare)
> If i > 0 Then
> Entre = Mid$(sCh, i + Len(sQuoi))
> i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> End If
> End Function
>
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > salut
> >
> > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> >
> > je me suis basé sur la meme architecture pour analyser les lignes et
> > séparer toutes les variables contenu dans la ligne en faisant un
> > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> > par exemple ), par contre, les valeurs texte sont entourées de
> > guillemet! la suite de mon analuse serait donc :
> > -comment transformer "variable_texte" en variable_text
> >
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> >
> > en tout cas merci beaucoup pour le super coup de main ;)
> > elicend
> >
> >
> > "Elicend_News" a écrit dans le message
> > de news:401614ce$0$17125$
> >> ok merci beaucoup !!
> >>
> >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> >>
> >> entre temps j'ai trouvé cette source,
> >> http://www.vbfrance.com/code.aspx?ID`85
> >>
> >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> >>
> >> merci
> >>
> >> elicend
> >>
> >> "ng" a écrit dans le message de
> >> news:%
> >>> Salut,
> >>>
> >>> Si j'ai bien compris, essaye ceci (dans un module) :
> >>>
> >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> >>> As Long) As Long
> >>> Private Function DownloadFile(URL As String, LocalFilename As
> >>> String) As Boolean
> >>> Dim lngRetVal As Long
> >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> >>> If lngRetVal = 0 Then DownloadFile = True
> >>> End Function
> >>>
> >>> Public Function AppPath()
> >>> 'répertoire de l'appli
> >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > > >>> App.Path & ""
> >>> End Function
> >>>
> >>>
> >>> Public Function OuvrURL(sPage As String) As String
> >>> Dim sTmpC As String, k As Integer, Buff As String
> >>> sTmpC = AppChe & Int(Timer) & ".dl"
> >>> DownloadFile sPage, sTmpC
> >>> k = FreeFile
> >>> Open sTmpC For Binary As #k
> >>> Buff = Space$(LOF(k))
> >>> Get #k, , Buff
> >>> Close #k
> >>> OuvrURL = Buff
> >>> Buff = ""
> >>> On Error Resume Next
> >>> Kill sTmpC
> >>> End Function
> >>>
> >>> Public Sub ParsePage(sURL As String)
> >>> Dim sPage As String, tblLignes() As String, i As Integer
> >>> 'récupère le code de la page
> >>> sPage = OuvrURL(sURL) & vbCrLf
> >>> 'sépare les lignes dans un tableau
> >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> >>> For i = 0 To UBound(tblLignes)
> >>> 'pour chaque ligne on vérifie
> >>> If tblLignes(i) Like "dSI*""" Then
> >>> MsgBox "On a une ligne : " & tblLignes(i)
> >>> End If
> >>> Next
> >>> sPage = ""
> >>> Erase tblLignes
> >>> End Sub
> >>>
> >>> Ensuite pour l'utiliser fais :
> >>>
> >>> Call ParsePage("http://www.site.com/page.ext")
> >>>
> >>> --
> >>> Nicolas G.
> >>> FAQ VB : http://faq.vb.free.fr
> >>> API Guide : http://www.allapi.net
> >>> Google Groups : http://groups.google.fr/
> >>> MZ-Tools : http://www.mztools.com/
> >>>
> >>> Elicend_News wrote:
> >>>> bonjour
> >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> >>>> indispensable!) - récuperer le code html de la page en question
> >>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
> >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> >>>> commencant par dSI( et finissant par "); (se sont les seules à
> >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> >>>> chaque variable est de toute facon séparée de la suivante par une
> >>>> virgule - récupérer certaine (toute?) de ces variables.
> >>>>
> >>>> ceci représenterai la premiere partie de mon application.
> >>>>
> >>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> >>>> sur la bonne voie pour commencer ce script ?
> >>>>
> >>>> Merci d'avance
> >>>> Elicend
>
>
merci bien!
comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
suis hyper content de voir mon appli avancer a grand pas :)
"ng" <ng@babeuk.net> a écrit dans le message de
news:ObNnYKZ5DHA.1040@TK2MSFTNGP10.phx.gbl...
> Salut,
>
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> Ereg_replace() tu veux dire :)
>
> Tu peux essayer ceci :
>
> If sChaine Like """*""" Then
> sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> End If
>
> Ou encore :
>
> sChaine = Entre(sChaine, """", """")
>
> Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
As
> String
> Dim i As Long
> i = InStr(1, sCh, sQuoi, vbTextCompare)
> If i > 0 Then
> Entre = Mid$(sCh, i + Len(sQuoi))
> i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> End If
> End Function
>
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > salut
> >
> > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> >
> > je me suis basé sur la meme architecture pour analyser les lignes et
> > séparer toutes les variables contenu dans la ligne en faisant un
> > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> > par exemple ), par contre, les valeurs texte sont entourées de
> > guillemet! la suite de mon analuse serait donc :
> > -comment transformer "variable_texte" en variable_text
> >
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> >
> > en tout cas merci beaucoup pour le super coup de main ;)
> > elicend
> >
> >
> > "Elicend_News" <cenestpas@labonneadresse.fr> a écrit dans le message
> > de news:401614ce$0$17125$626a54ce@news.free.fr...
> >> ok merci beaucoup !!
> >>
> >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> >>
> >> entre temps j'ai trouvé cette source,
> >> http://www.vbfrance.com/code.aspx?ID`85
> >>
> >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> >>
> >> merci
> >>
> >> elicend
> >>
> >> "ng" <ng@babeuk.net> a écrit dans le message de
> >> news:%23qNKzHD5DHA.2404@TK2MSFTNGP11.phx.gbl...
> >>> Salut,
> >>>
> >>> Si j'ai bien compris, essaye ceci (dans un module) :
> >>>
> >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> >>> As Long) As Long
> >>> Private Function DownloadFile(URL As String, LocalFilename As
> >>> String) As Boolean
> >>> Dim lngRetVal As Long
> >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> >>> If lngRetVal = 0 Then DownloadFile = True
> >>> End Function
> >>>
> >>> Public Function AppPath()
> >>> 'répertoire de l'appli
> >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > > >>> App.Path & ""
> >>> End Function
> >>>
> >>>
> >>> Public Function OuvrURL(sPage As String) As String
> >>> Dim sTmpC As String, k As Integer, Buff As String
> >>> sTmpC = AppChe & Int(Timer) & ".dl"
> >>> DownloadFile sPage, sTmpC
> >>> k = FreeFile
> >>> Open sTmpC For Binary As #k
> >>> Buff = Space$(LOF(k))
> >>> Get #k, , Buff
> >>> Close #k
> >>> OuvrURL = Buff
> >>> Buff = ""
> >>> On Error Resume Next
> >>> Kill sTmpC
> >>> End Function
> >>>
> >>> Public Sub ParsePage(sURL As String)
> >>> Dim sPage As String, tblLignes() As String, i As Integer
> >>> 'récupère le code de la page
> >>> sPage = OuvrURL(sURL) & vbCrLf
> >>> 'sépare les lignes dans un tableau
> >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> >>> For i = 0 To UBound(tblLignes)
> >>> 'pour chaque ligne on vérifie
> >>> If tblLignes(i) Like "dSI*""" Then
> >>> MsgBox "On a une ligne : " & tblLignes(i)
> >>> End If
> >>> Next
> >>> sPage = ""
> >>> Erase tblLignes
> >>> End Sub
> >>>
> >>> Ensuite pour l'utiliser fais :
> >>>
> >>> Call ParsePage("http://www.site.com/page.ext")
> >>>
> >>> --
> >>> Nicolas G.
> >>> FAQ VB : http://faq.vb.free.fr
> >>> API Guide : http://www.allapi.net
> >>> Google Groups : http://groups.google.fr/
> >>> MZ-Tools : http://www.mztools.com/
> >>>
> >>> Elicend_News wrote:
> >>>> bonjour
> >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> >>>> indispensable!) - récuperer le code html de la page en question
> >>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
> >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> >>>> commencant par dSI( et finissant par "); (se sont les seules à
> >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> >>>> chaque variable est de toute facon séparée de la suivante par une
> >>>> virgule - récupérer certaine (toute?) de ces variables.
> >>>>
> >>>> ceci représenterai la premiere partie de mon application.
> >>>>
> >>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> >>>> sur la bonne voie pour commencer ce script ?
> >>>>
> >>>> Merci d'avance
> >>>> Elicend
>
>
merci bien!
comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
suis hyper content de voir mon appli avancer a grand pas :)
"ng" a écrit dans le message de
news:
> Salut,
>
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> Ereg_replace() tu veux dire :)
>
> Tu peux essayer ceci :
>
> If sChaine Like """*""" Then
> sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> End If
>
> Ou encore :
>
> sChaine = Entre(sChaine, """", """")
>
> Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String)
As
> String
> Dim i As Long
> i = InStr(1, sCh, sQuoi, vbTextCompare)
> If i > 0 Then
> Entre = Mid$(sCh, i + Len(sQuoi))
> i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> End If
> End Function
>
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> Elicend_News wrote:
> > salut
> >
> > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> >
> > je me suis basé sur la meme architecture pour analyser les lignes et
> > séparer toutes les variables contenu dans la ligne en faisant un
> > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > pb (elles sont toutes au meme endroit donc je choppe la 13eme en fait
> > par exemple ), par contre, les valeurs texte sont entourées de
> > guillemet! la suite de mon analuse serait donc :
> > -comment transformer "variable_texte" en variable_text
> >
> > je suis sur que c'est juste une ligne de commande equivalente au
> > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > hier soir ???
> >
> > en tout cas merci beaucoup pour le super coup de main ;)
> > elicend
> >
> >
> > "Elicend_News" a écrit dans le message
> > de news:401614ce$0$17125$
> >> ok merci beaucoup !!
> >>
> >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> >>
> >> entre temps j'ai trouvé cette source,
> >> http://www.vbfrance.com/code.aspx?ID`85
> >>
> >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> >>
> >> merci
> >>
> >> elicend
> >>
> >> "ng" a écrit dans le message de
> >> news:%
> >>> Salut,
> >>>
> >>> Si j'ai bien compris, essaye ceci (dans un module) :
> >>>
> >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
> >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> >>> As Long) As Long
> >>> Private Function DownloadFile(URL As String, LocalFilename As
> >>> String) As Boolean
> >>> Dim lngRetVal As Long
> >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> >>> If lngRetVal = 0 Then DownloadFile = True
> >>> End Function
> >>>
> >>> Public Function AppPath()
> >>> 'répertoire de l'appli
> >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath > > >>> App.Path & ""
> >>> End Function
> >>>
> >>>
> >>> Public Function OuvrURL(sPage As String) As String
> >>> Dim sTmpC As String, k As Integer, Buff As String
> >>> sTmpC = AppChe & Int(Timer) & ".dl"
> >>> DownloadFile sPage, sTmpC
> >>> k = FreeFile
> >>> Open sTmpC For Binary As #k
> >>> Buff = Space$(LOF(k))
> >>> Get #k, , Buff
> >>> Close #k
> >>> OuvrURL = Buff
> >>> Buff = ""
> >>> On Error Resume Next
> >>> Kill sTmpC
> >>> End Function
> >>>
> >>> Public Sub ParsePage(sURL As String)
> >>> Dim sPage As String, tblLignes() As String, i As Integer
> >>> 'récupère le code de la page
> >>> sPage = OuvrURL(sURL) & vbCrLf
> >>> 'sépare les lignes dans un tableau
> >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> >>> For i = 0 To UBound(tblLignes)
> >>> 'pour chaque ligne on vérifie
> >>> If tblLignes(i) Like "dSI*""" Then
> >>> MsgBox "On a une ligne : " & tblLignes(i)
> >>> End If
> >>> Next
> >>> sPage = ""
> >>> Erase tblLignes
> >>> End Sub
> >>>
> >>> Ensuite pour l'utiliser fais :
> >>>
> >>> Call ParsePage("http://www.site.com/page.ext")
> >>>
> >>> --
> >>> Nicolas G.
> >>> FAQ VB : http://faq.vb.free.fr
> >>> API Guide : http://www.allapi.net
> >>> Google Groups : http://groups.google.fr/
> >>> MZ-Tools : http://www.mztools.com/
> >>>
> >>> Elicend_News wrote:
> >>>> bonjour
> >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> >>>> indispensable!) - récuperer le code html de la page en question
> >>>> dans une variable ou un fichier (je pense que oui, mais je ne sais
> >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> >>>> commencant par dSI( et finissant par "); (se sont les seules à
> >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> >>>> chaque variable est de toute facon séparée de la suivante par une
> >>>> virgule - récupérer certaine (toute?) de ces variables.
> >>>>
> >>>> ceci représenterai la premiere partie de mon application.
> >>>>
> >>>> Pouvez vous me dire si c'est possible, assez simple et m'aiguiller
> >>>> sur la bonne voie pour commencer ce script ?
> >>>>
> >>>> Merci d'avance
> >>>> Elicend
>
>
j'ai utilisé ca
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
et ca marche nickel chrome!
merci beaucoup!
elicend
"Elicend_News" a écrit dans le message de
news:4017b6b8$0$24047$
> merci bien!
>
> comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
> suis hyper content de voir mon appli avancer a grand pas :)
>
> "ng" a écrit dans le message de
> news:
> > Salut,
> >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > Ereg_replace() tu veux dire :)
> >
> > Tu peux essayer ceci :
> >
> > If sChaine Like """*""" Then
> > sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> > End If
> >
> > Ou encore :
> >
> > sChaine = Entre(sChaine, """", """")
> >
> > Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As
> As
> > String
> > Dim i As Long
> > i = InStr(1, sCh, sQuoi, vbTextCompare)
> > If i > 0 Then
> > Entre = Mid$(sCh, i + Len(sQuoi))
> > i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> > If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> > End If
> > End Function
> >
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> > Elicend_News wrote:
> > > salut
> > >
> > > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> > >
> > > je me suis basé sur la meme architecture pour analyser les lignes et
> > > séparer toutes les variables contenu dans la ligne en faisant un
> > > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > > pb (elles sont toutes au meme endroit donc je choppe la 13eme en
> > > par exemple ), par contre, les valeurs texte sont entourées de
> > > guillemet! la suite de mon analuse serait donc :
> > > -comment transformer "variable_texte" en variable_text
> > >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > >
> > > en tout cas merci beaucoup pour le super coup de main ;)
> > > elicend
> > >
> > >
> > > "Elicend_News" a écrit dans le message
> > > de news:401614ce$0$17125$
> > >> ok merci beaucoup !!
> > >>
> > >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> > >>
> > >> entre temps j'ai trouvé cette source,
> > >> http://www.vbfrance.com/code.aspx?ID`85
> > >>
> > >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> > >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> > >>
> > >> merci
> > >>
> > >> elicend
> > >>
> > >> "ng" a écrit dans le message de
> > >> news:%
> > >>> Salut,
> > >>>
> > >>> Si j'ai bien compris, essaye ceci (dans un module) :
> > >>>
> > >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> > >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As
> > >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> > >>> As Long) As Long
> > >>> Private Function DownloadFile(URL As String, LocalFilename As
> > >>> String) As Boolean
> > >>> Dim lngRetVal As Long
> > >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> > >>> If lngRetVal = 0 Then DownloadFile = True
> > >>> End Function
> > >>>
> > >>> Public Function AppPath()
> > >>> 'répertoire de l'appli
> > >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath
> > >>> End Function
> > >>>
> > >>>
> > >>> Public Function OuvrURL(sPage As String) As String
> > >>> Dim sTmpC As String, k As Integer, Buff As String
> > >>> sTmpC = AppChe & Int(Timer) & ".dl"
> > >>> DownloadFile sPage, sTmpC
> > >>> k = FreeFile
> > >>> Open sTmpC For Binary As #k
> > >>> Buff = Space$(LOF(k))
> > >>> Get #k, , Buff
> > >>> Close #k
> > >>> OuvrURL = Buff
> > >>> Buff = ""
> > >>> On Error Resume Next
> > >>> Kill sTmpC
> > >>> End Function
> > >>>
> > >>> Public Sub ParsePage(sURL As String)
> > >>> Dim sPage As String, tblLignes() As String, i As Integer
> > >>> 'récupère le code de la page
> > >>> sPage = OuvrURL(sURL) & vbCrLf
> > >>> 'sépare les lignes dans un tableau
> > >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> > >>> For i = 0 To UBound(tblLignes)
> > >>> 'pour chaque ligne on vérifie
> > >>> If tblLignes(i) Like "dSI*""" Then
> > >>> MsgBox "On a une ligne : " & tblLignes(i)
> > >>> End If
> > >>> Next
> > >>> sPage = ""
> > >>> Erase tblLignes
> > >>> End Sub
> > >>>
> > >>> Ensuite pour l'utiliser fais :
> > >>>
> > >>> Call ParsePage("http://www.site.com/page.ext")
> > >>>
> > >>> --
> > >>> Nicolas G.
> > >>> FAQ VB : http://faq.vb.free.fr
> > >>> API Guide : http://www.allapi.net
> > >>> Google Groups : http://groups.google.fr/
> > >>> MZ-Tools : http://www.mztools.com/
> > >>>
> > >>> Elicend_News wrote:
> > >>>> bonjour
> > >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> > >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> > >>>> indispensable!) - récuperer le code html de la page en question
> > >>>> dans une variable ou un fichier (je pense que oui, mais je ne
> > >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> > >>>> commencant par dSI( et finissant par "); (se sont les seules à
> > >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> > >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> > >>>> chaque variable est de toute facon séparée de la suivante par une
> > >>>> virgule - récupérer certaine (toute?) de ces variables.
> > >>>>
> > >>>> ceci représenterai la premiere partie de mon application.
> > >>>>
> > >>>> Pouvez vous me dire si c'est possible, assez simple et
> > >>>> sur la bonne voie pour commencer ce script ?
> > >>>>
> > >>>> Merci d'avance
> > >>>> Elicend
> >
> >
>
>
j'ai utilisé ca
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
et ca marche nickel chrome!
merci beaucoup!
elicend
"Elicend_News" <cenestpas@labonneadresse.fr> a écrit dans le message de
news:4017b6b8$0$24047$626a54ce@news.free.fr...
> merci bien!
>
> comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
> suis hyper content de voir mon appli avancer a grand pas :)
>
> "ng" <ng@babeuk.net> a écrit dans le message de
> news:ObNnYKZ5DHA.1040@TK2MSFTNGP10.phx.gbl...
> > Salut,
> >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > Ereg_replace() tu veux dire :)
> >
> > Tu peux essayer ceci :
> >
> > If sChaine Like """*""" Then
> > sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> > End If
> >
> > Ou encore :
> >
> > sChaine = Entre(sChaine, """", """")
> >
> > Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As
> As
> > String
> > Dim i As Long
> > i = InStr(1, sCh, sQuoi, vbTextCompare)
> > If i > 0 Then
> > Entre = Mid$(sCh, i + Len(sQuoi))
> > i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> > If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> > End If
> > End Function
> >
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> > Elicend_News wrote:
> > > salut
> > >
> > > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> > >
> > > je me suis basé sur la meme architecture pour analyser les lignes et
> > > séparer toutes les variables contenu dans la ligne en faisant un
> > > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > > pb (elles sont toutes au meme endroit donc je choppe la 13eme en
> > > par exemple ), par contre, les valeurs texte sont entourées de
> > > guillemet! la suite de mon analuse serait donc :
> > > -comment transformer "variable_texte" en variable_text
> > >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > >
> > > en tout cas merci beaucoup pour le super coup de main ;)
> > > elicend
> > >
> > >
> > > "Elicend_News" <cenestpas@labonneadresse.fr> a écrit dans le message
> > > de news:401614ce$0$17125$626a54ce@news.free.fr...
> > >> ok merci beaucoup !!
> > >>
> > >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> > >>
> > >> entre temps j'ai trouvé cette source,
> > >> http://www.vbfrance.com/code.aspx?ID`85
> > >>
> > >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> > >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> > >>
> > >> merci
> > >>
> > >> elicend
> > >>
> > >> "ng" <ng@babeuk.net> a écrit dans le message de
> > >> news:%23qNKzHD5DHA.2404@TK2MSFTNGP11.phx.gbl...
> > >>> Salut,
> > >>>
> > >>> Si j'ai bien compris, essaye ceci (dans un module) :
> > >>>
> > >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> > >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As
> > >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> > >>> As Long) As Long
> > >>> Private Function DownloadFile(URL As String, LocalFilename As
> > >>> String) As Boolean
> > >>> Dim lngRetVal As Long
> > >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> > >>> If lngRetVal = 0 Then DownloadFile = True
> > >>> End Function
> > >>>
> > >>> Public Function AppPath()
> > >>> 'répertoire de l'appli
> > >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath
> > >>> End Function
> > >>>
> > >>>
> > >>> Public Function OuvrURL(sPage As String) As String
> > >>> Dim sTmpC As String, k As Integer, Buff As String
> > >>> sTmpC = AppChe & Int(Timer) & ".dl"
> > >>> DownloadFile sPage, sTmpC
> > >>> k = FreeFile
> > >>> Open sTmpC For Binary As #k
> > >>> Buff = Space$(LOF(k))
> > >>> Get #k, , Buff
> > >>> Close #k
> > >>> OuvrURL = Buff
> > >>> Buff = ""
> > >>> On Error Resume Next
> > >>> Kill sTmpC
> > >>> End Function
> > >>>
> > >>> Public Sub ParsePage(sURL As String)
> > >>> Dim sPage As String, tblLignes() As String, i As Integer
> > >>> 'récupère le code de la page
> > >>> sPage = OuvrURL(sURL) & vbCrLf
> > >>> 'sépare les lignes dans un tableau
> > >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> > >>> For i = 0 To UBound(tblLignes)
> > >>> 'pour chaque ligne on vérifie
> > >>> If tblLignes(i) Like "dSI*""" Then
> > >>> MsgBox "On a une ligne : " & tblLignes(i)
> > >>> End If
> > >>> Next
> > >>> sPage = ""
> > >>> Erase tblLignes
> > >>> End Sub
> > >>>
> > >>> Ensuite pour l'utiliser fais :
> > >>>
> > >>> Call ParsePage("http://www.site.com/page.ext")
> > >>>
> > >>> --
> > >>> Nicolas G.
> > >>> FAQ VB : http://faq.vb.free.fr
> > >>> API Guide : http://www.allapi.net
> > >>> Google Groups : http://groups.google.fr/
> > >>> MZ-Tools : http://www.mztools.com/
> > >>>
> > >>> Elicend_News wrote:
> > >>>> bonjour
> > >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> > >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> > >>>> indispensable!) - récuperer le code html de la page en question
> > >>>> dans une variable ou un fichier (je pense que oui, mais je ne
> > >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> > >>>> commencant par dSI( et finissant par "); (se sont les seules à
> > >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> > >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> > >>>> chaque variable est de toute facon séparée de la suivante par une
> > >>>> virgule - récupérer certaine (toute?) de ces variables.
> > >>>>
> > >>>> ceci représenterai la premiere partie de mon application.
> > >>>>
> > >>>> Pouvez vous me dire si c'est possible, assez simple et
> > >>>> sur la bonne voie pour commencer ce script ?
> > >>>>
> > >>>> Merci d'avance
> > >>>> Elicend
> >
> >
>
>
j'ai utilisé ca
If sChaine Like """*""" Then
sChaine = Replace(sChaine, """", "", , , vbTextCompare)
End If
et ca marche nickel chrome!
merci beaucoup!
elicend
"Elicend_News" a écrit dans le message de
news:4017b6b8$0$24047$
> merci bien!
>
> comme d'hab, j'essaye ce soir et je vous tiens au courant demain mais je
> suis hyper content de voir mon appli avancer a grand pas :)
>
> "ng" a écrit dans le message de
> news:
> > Salut,
> >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > Ereg_replace() tu veux dire :)
> >
> > Tu peux essayer ceci :
> >
> > If sChaine Like """*""" Then
> > sChaine = Replace(sChaine, """", "", , , vbTextCompare)
> > End If
> >
> > Ou encore :
> >
> > sChaine = Entre(sChaine, """", """")
> >
> > Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As
> As
> > String
> > Dim i As Long
> > i = InStr(1, sCh, sQuoi, vbTextCompare)
> > If i > 0 Then
> > Entre = Mid$(sCh, i + Len(sQuoi))
> > i = InStr(1, Entre, sEtQuoi, vbTextCompare)
> > If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
> > End If
> > End Function
> >
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> > Elicend_News wrote:
> > > salut
> > >
> > > j'ai essayer le bout de code fourni, et bien ca fonctionne nikel!
> > >
> > > je me suis basé sur la meme architecture pour analyser les lignes et
> > > séparer toutes les variables contenu dans la ligne en faisant un
> > > split sur les virgules, mais, j'obtiens mes valeurs numériques sans
> > > pb (elles sont toutes au meme endroit donc je choppe la 13eme en
> > > par exemple ), par contre, les valeurs texte sont entourées de
> > > guillemet! la suite de mon analuse serait donc :
> > > -comment transformer "variable_texte" en variable_text
> > >
> > > je suis sur que c'est juste une ligne de commande equivalente au
> > > str_replace en php mais je ne l'ai pas trouvée dans mon bouquin VB
> > > hier soir ???
> > >
> > > en tout cas merci beaucoup pour le super coup de main ;)
> > > elicend
> > >
> > >
> > > "Elicend_News" a écrit dans le message
> > > de news:401614ce$0$17125$
> > >> ok merci beaucoup !!
> > >>
> > >> j'essaye ce soir ce bout de code qui me parait trés symatique :)
> > >>
> > >> entre temps j'ai trouvé cette source,
> > >> http://www.vbfrance.com/code.aspx?ID`85
> > >>
> > >> dans laquelle j'ai le pb de ne traiter qu'une ligne, avec le code
> > >> que tu m'as donné, j'ai bien l'impression de palier à ce pb!
> > >>
> > >> merci
> > >>
> > >> elicend
> > >>
> > >> "ng" a écrit dans le message de
> > >> news:%
> > >>> Salut,
> > >>>
> > >>> Si j'ai bien compris, essaye ceci (dans un module) :
> > >>>
> > >>> Private Declare Function URLDownloadToFile Lib "urlmon" Alias
> > >>> "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As
> > >>> ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB
> > >>> As Long) As Long
> > >>> Private Function DownloadFile(URL As String, LocalFilename As
> > >>> String) As Boolean
> > >>> Dim lngRetVal As Long
> > >>> lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
> > >>> If lngRetVal = 0 Then DownloadFile = True
> > >>> End Function
> > >>>
> > >>> Public Function AppPath()
> > >>> 'répertoire de l'appli
> > >>> If Right$(App.Path, 1) = "" Then AppPath = App.Path Else AppPath
> > >>> End Function
> > >>>
> > >>>
> > >>> Public Function OuvrURL(sPage As String) As String
> > >>> Dim sTmpC As String, k As Integer, Buff As String
> > >>> sTmpC = AppChe & Int(Timer) & ".dl"
> > >>> DownloadFile sPage, sTmpC
> > >>> k = FreeFile
> > >>> Open sTmpC For Binary As #k
> > >>> Buff = Space$(LOF(k))
> > >>> Get #k, , Buff
> > >>> Close #k
> > >>> OuvrURL = Buff
> > >>> Buff = ""
> > >>> On Error Resume Next
> > >>> Kill sTmpC
> > >>> End Function
> > >>>
> > >>> Public Sub ParsePage(sURL As String)
> > >>> Dim sPage As String, tblLignes() As String, i As Integer
> > >>> 'récupère le code de la page
> > >>> sPage = OuvrURL(sURL) & vbCrLf
> > >>> 'sépare les lignes dans un tableau
> > >>> tblLignes = Split(sPage, vbCrLf, , vbTextCompare)
> > >>> For i = 0 To UBound(tblLignes)
> > >>> 'pour chaque ligne on vérifie
> > >>> If tblLignes(i) Like "dSI*""" Then
> > >>> MsgBox "On a une ligne : " & tblLignes(i)
> > >>> End If
> > >>> Next
> > >>> sPage = ""
> > >>> Erase tblLignes
> > >>> End Sub
> > >>>
> > >>> Ensuite pour l'utiliser fais :
> > >>>
> > >>> Call ParsePage("http://www.site.com/page.ext")
> > >>>
> > >>> --
> > >>> Nicolas G.
> > >>> FAQ VB : http://faq.vb.free.fr
> > >>> API Guide : http://www.allapi.net
> > >>> Google Groups : http://groups.google.fr/
> > >>> MZ-Tools : http://www.mztools.com/
> > >>>
> > >>> Elicend_News wrote:
> > >>>> bonjour
> > >>>> je voudrais savoir si en VB on peut faire quelque chose comme ca:
> > >>>> - ouverture d'une page html dont on connait l'url (reponse : je
> > >>>> suis kasi sur que oui mais a vrai dire ca ne m'est pas
> > >>>> indispensable!) - récuperer le code html de la page en question
> > >>>> dans une variable ou un fichier (je pense que oui, mais je ne
> > >>>> pas comment?) - analyser ce code et en extraire quelques lignes
> > >>>> commencant par dSI( et finissant par "); (se sont les seules à
> > >>>> commencer par dSI de tt la page) dans ces lignes j'ai soit des
> > >>>> valeurs numériques soit des valeurs texte qui sont entre " ",
> > >>>> chaque variable est de toute facon séparée de la suivante par une
> > >>>> virgule - récupérer certaine (toute?) de ces variables.
> > >>>>
> > >>>> ceci représenterai la premiere partie de mon application.
> > >>>>
> > >>>> Pouvez vous me dire si c'est possible, assez simple et
> > >>>> sur la bonne voie pour commencer ce script ?
> > >>>>
> > >>>> Merci d'avance
> > >>>> Elicend
> >
> >
>
>
