LIRE DONNE D'UN FICHIER.htlm et non d'une page html en vb6Résolu

Question

Bonjour, 

je programmais en vba et je programme depuis peu en vb6

après avoir rechercher sur le forum des explications et un exemple de programmation ado , je me tourne vers vous pour m'aider

voilà 
j'ai un fichier (dont le nom est   dud.html  ) qui contient   les données d'un logitiel , et je n'ai pas le choix de l'extension 
ce fichier est dans un répertoire c:\documents and setting	out\, mais il pourra changer de place dans l'avenir
ce fichier s'ouvre avec excel 
je pourrai vous le joindre mais je ne sais pas comment faire, désolé, d'ailleur si vous pouvez me l'enseigner merci
j'ai un projet    VB6 avec un MSflexgrid1 

j'aimerai   récupérer les donner de ce fichier qui contient des cases vide également et le placer dans le MSflexgrid1

mais sans l'ouvrir  avec une connextion style ado 

j'ai besoin d'un code pour pouvoir modifier le chemin si nécessaire

je sais récupérer des données d'un fichier excel  mais pas  quand l'extension est .html cela ne marche pas

merci
merci
si vous pouvez m'aider

FOUNI · Accepted Answer

MERCI, cela confirme ce que je pensais , il faut que je prenne des cours car la bidouille sous excel passe encore,mais pas avec d autre langage , si on est pas struturé , on fini par chercher MIDI A QUATORZE HEURE, j'utilise pas  assez les fonctions .



patiente et longueur de temps font plus que force et que rage

PCPT · Answer

salut, pas de possibilité de joindre directement un fichier, tu peux passer par un site d'upload gratuit, il y en a des tas www.cijoint.fr dl.free.fr etc... mais il nous faut la structure pour t'aider oui : est-ce juste l'extension? ou tes données sont dans des balises pour ouvrir un fichier (peu importe son extension), voir www.codyx.org ensuite INSTR te retourne la position d'une chaine dans une autre tu peux récupérer par tronçon (comme entre et ) encore un snippet pratique sur codyx pour çà : http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1043 possible aussi de passer par les regexp voilà pour commencer ;) ++

cs_Jack · Answer

Salut
"ce fichier s'ouvre avec excel" : Comment fais-tu ?
S'agit-il d'un fichier CSV, c'est à dire du texte avec des séparateurs, parce que l'extension du fichier importe peu, du moment que le logiciel reconnait la structure.
Peut-être d'un fichier XML ?

"mais sans l'ouvrir  avec une connextion style ado" : Sans l'ouvrir ? bah si, faudra bien, à un moment ou un autre.
ADO ne s'applique qu'à des données organisées pour cela. Tant qu'on ne saura pas ce qu'il y a dans le fichier, difficile à dire.

"j'ai besoin d'un code pour pouvoir modifier le chemin" Ca, c'est le B.A.BA, quand il n'y aura plus que ça à résoudre ...

Est-ce que tu peux ouvrir le ficher dans WordPad ? Y vois-tu les données en clair ?
Si oui, colle nous quelques exemples.
Si non, il va falloir trouver comment est organisé le fichier pour retrouver son type, donc sa méthode d'ouverture.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

FOUNI · Answer

merci pour les réponses 

j ai encore beaucoup  de chemin  pour tout comprendre 

quand je parle de ne pas l'ouvrir , je veux dire sans qu'il apparaisse en icone comme dans vba thisworkbook.open

comment je peux vous envoyer mon fichier.html sur le forum en pièce jointe??????????

pour vous faciliter la tache pour la réponse

autrement
voilà ce que j'ai réussi à faire

j'ai  trouvé une solution mais en passant par acces , grace aux lien entre les tables, je recupère les donnes 
 du fichier .html et je les place dans une table Acces et ensuite je recupere les donnes dans mon projet vb6 , mais je ne peux pas modifier le chemin d'acces , c'est Acces qui fait le code , et je ne sais pas où le récupérer

MERCI pour le temps passé et l aide très précieuse

PCPT · Answer

pour envoyer le fichier -> voir mon premier post

pourquoi passer par access si tu est en VB6?!
pourquoi parler de thisworkbook si tu es en VB6?

tu n'as répondu à aucune de nos questions, à part te donner du temps, on ne pourra pas beaucoup t'aider dans ces conditions

FOUNI · Answer

Désolé,   

j ai placé le fichier dans

FOUNI · Answer

encore moi , il y a d'écrit [http://www.vbfrance.com/c.aspx?u=ZmlsZTovLy8=  [ Lien ]]

  avant d'envoyer  le message j'avais écrit file suivit de : et de  ///

MERCI

PCPT · Answer

... bon!

*bouton démarrer, dans la zone executer, tape NOTEPAD
*un éditeur s'ouvre
*glisse ton fichier HTML directement dans cette fenêtre (notepad)

sélectionne tout, et copie le ici

ps : malgré tes efforts, ta demande reste des plus incompréhensible, es-tu certain d'être sous VB6 ???
(et non VBA)

FOUNI · Answer

j'espère que vous avez eu les infos

encore merci

cs_Jack · Answer

FOUNI : On veut simplement savoir à quoi ressemble le texte/les données à l'intérieur de ton fichier.
Le fichier lui-même n'a pas d'importance, tu l'ouvres avec NOTEPAD et tu en copie/colle quelques lignes ICI, avec un Ctrl-V

FOUNI · Answer

J' ai déjà tout envoyé mais je pense qu'il y a eu un problème , je confirme que je suis en vb6 Je continu a chercher ,il s'emblerai que je dois récupérer le code du fichier dans un textbox ou autre méthode trouvé ,exemple Dim contenuHTML As StringPrivate Sub Form_Load() WebBrowser1.Navigate2 "http://www.codes-sources.com"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) contenuHTML = WB.Document.documentElement.innerHTMLEnd Sub et que je récupère que le texte mais je n'ai pas trouvé le WebBrowser1 dans les composant VB6 et comment placer les info au final dans mon MSflexgrid VOICI UNE PARTI DE MON FICHIER C:\Documents and Settings\H59130\Bureau\dud de CCPULSE INVISION\SIMM MOB TOULON SIMM MOB TOULON

Actuellement Actuellement Actuellement Actuellement Dans la journée Dans la journée Dans la journée Dans la journée Dans la journée Dans la journée Dans la journée Dans la journée Dans la journée #C8C8C8 >ActivitéEtatDuréetechnique:Etat en cours àLogIndispoPost-AppelTx Activ. Tél.DécrochésProductivitéTps Moyen de Conv entranteRotations LEO.Florence LoggedOut (09:44:43)00:00:0000:00:0000:00:0000000:00:000 PINT.Nathalie LoggedOut (09:44:42)00:00:0000:00:0000:00:0000000:00:000 .LE NOM DE MON FICHIER TEST EST Y.html merci énormément

PCPT · Answer

ton fichier html est truffé d'erreurs.....
bref, c'est faisable, évidemment!

qu'as-tu fait comme code pour commencer?

voici les snippets que j'ai utilisé :
http://www.codyx.org/snippet_lire-totalite-contenu-fichier_47.aspx#133
http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1043
http://www.codyx.org/snippet_convertir-couleur-long-code-html-vice-versa_254.aspx#818

puis une petite routine d'une 60ène de lignes , et voici le résultat :

à ton tour

FOUNI · Answer

Je continu mes  recherche , j'ai réussi a placer les  éléments de mon fichier.html dans un WebBrowser1 mais maintenant je dois récupérer le texte pour le placer dans un MSflexgrid

pour pouvoir l utliser dans mon projet

bonne nuit

FOUNI · Answer

JE vois que je suis tombé sur une personne très qualifié 

qu'as-tu fait comme code pour commencer?  POUR COMMENCER QUOi ?? LE PROJET VB6 

je vais essayer de comprendre la démarche , si j'ai bien compris vous avez réussi à lire le code html et placer les résultats dans un form sous VB6

si j'ai bien compris , vous êtes super fort

merci

pour la recherche  vu   l heure 

bonne nuit

FOUNI · Answer

bonjour pcpt,

je suis tes conseils   , et je comprends le principe avec les fonctions que tu m'as indiqué

En ce concerne le fichier html , je n'ai pas le choix , ce n'est pas moi qu'il l' ai créé

Si tu le permets , je désirerais ne pas cloturer la discution , car j'aimerai reproduire ce que tu as fait ( sans prétention) 

Comment incrire les données extraite du fichier html , dans un msflexgrid ou listview ,

d ailleurs as tu utilisé cette méthode?

faut-il faire une boucle pour récupérer toutes les valeurs?

Bon je percévère  , encouragé par des personnes comme toi qui prennent le temps pour aider les autres
 

respect

PCPT · Answer

j'ai détaillé la démarche en page1 de ce topic

lecture fichier (pas par un webbrowser, snippet lire fichier)
récupération de la partie <TABLE

boucle TR
  sous-boucle TD
    écriture msflex

pas de "tout cuit" comme indiqué dans le règlement, je t'aiderai avec du code lorsque tu auras montré le tien, avec les passages sur lesquels tu bloques

++

FOUNI · Answer

BONJOUR je continu de chercher mais j ai beaucoup de mal car trop de lacune je m'inspire de plusieurs codes et je mélange tout je pense j'ai reussi à lire le ficher et faire une boucle mais le résultat n'est pas parfait j'essaye pour l'instant de visualiser les données , je verrai apres pour les inscrire dans un flexgrid voici mon code Private Sub Command1_Click() Dim Readlen As Long, ReadStr As String, FileLen As Long Dim TheFile As String, FileNum As Integer Readlen = 500 ??? JE PENSE QUE CELA n'est pas bon TheFile = App.Path & "\Y.html" adresse de mon fichier Open TheFile For Binary Access Read As 1 FileLen = LOF(1) 'Get length of file. Cpos = 0 'current Position Do While Cpos < FileLen If (Cpos + Readlen) > FileLen Then ReadStr = Input(FileLen - Cpos, 1) Cpos = FileLen Else ReadStr = Input(Readlen, 1) Cpos = Cpos + Readlen End If expression = MyMid(ReadStr, ">", "<") Loop End Sub Private Function MyMid(ByRef expression As String, sLeft As String, sRight As String, Optional Start As Long = 1) As String Dim lPosL As Long, lPosR As Long lPosL InStr(Start, expression, sLeft): lPosR InStr(lPosL + 1, expression, sRight) If lPosL > 0 And lPosR > 0 Then MyMid = Mid$(expression, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft)) Else MyMid = vbNullString End If End Function merci de m'aider si possible j 'essaye d'avancer au plus vite mais durdur BONNE JOURNEE FOUNI

PCPT · Answer

salut, Readlen = 500 ??? JE PENSE QUE CELA n'est pas bon en effet Open TheFile For Binary Access Read As 1pourquoi pas, et où est le close ?? expression = MyMid(ReadStr, ">", "<")où est déclarée expression? que fais-tu du contenu? tu ne cherches ni TD ni TR..., expression peut très bien être vide, pour un bout de chaine comme < td> je ne vois pas (par ton code) la chaine que tu espères récupérer

FOUNI · Answer

SALUT, j'ai mis Public expression As String le close est situé après le loop , désolé je ne l'ai pas copié je viens de comprendre ce que tu as dit par rapport au boucle sur j'essaye aussi avec cette méthode Data = ReadFile(App.Path & "\Y.html") Function ReadFile(ByVal FileName As String) As String Dim Free As Integer Free = FreeFile() Open FileName For Binary As Free ReadFile = String(LOF(1), 0) Get Free, , ReadFile Close Free End Function mais où faire la boucle ??? "je ne vois pas (par ton code) la chaine que tu espères récupérer" Comme tu le vois je suis perdu , pour l instant je visualise ce que fait le code avec la touche F8, IL FAUT QUE JE COMPRENNE LE FONCTIOMMENT DES CHAINES ET QUE JE FASSE LA BOUCLE SUR TR TD CE code est important pour moi , cela pourrait m'aider dans mon travail même si je ne suis pas dans le développement d'outil , c'est pour le plaisir JE CONTINU ,connais tu des personnes ou ouvrages ou exemple de code qui pourrait m'aider je trouve des projets ou codes mais pour c++ OU VB2005 OU VB.NET JE NE VEUT PAS TE FAIRE PERDRE TON TEMPS , MON NIVEAU est faible et je suis lent , manque de méthode surtout, mais pas de motivation merci

PCPT · Answer

côté ouvrage, le "magnum VB6" de campus press est très bien, même juste au dessus du niveau débutant cherche-le d'occasion (avec le cd d'exercices si possible) NB : il y en a eu bien d'autres depuis, peut-être de meilleurs... je vois bien que tu veux apprendre et comprendre, c'est pour çà que je n'ai pas copié directement la réponse (j'ai gardé le code de côté, au besoin...) sans te donner de code, j'ai mis exactement le fonctionnement... je vois mal comment en dire plus sans en dire trop ^^ je peux te montrer le début si tu veux ? (encore que, j'ai parlé de boucles donc une fois le début fait... la fin aussi) bon, reprenons! tu as ton fichier, tu sais le lire, çà c'est bon : Data = ReadFile(App.Path & "\Y.html") ensuite il faut virer ce qui dérange. tu veux juste le tableau. il faudrait donc récupérer la chaine entre et ceci est faisable facilement avec la fonction MyMid problème : ton html est mal fait, il manque la balise de fin! donc on va directement supprimer tout ce qui se trouve avant le premier INSTR va retourner la position MID va renvoyer un tronçon data = Mid$(data, InStr(1, data, "")) à ce moment, data contient plus ou moins : blabla blabla blabla blabla ou presque : pas aussi bien mis en page, et avec des balises inutiles on a par exemple des qui ne servent à rien, sans balise autant y voir plus clair en les supprimant data = replace(data, "", vbnullstring) là déjà, on y voit plus clair ! reste : boucler sur tous les comment faire? récupérer le texte au milieu, MyMid entre et , et supprimer de data (comme un tampon) ce qu'on vient de récupérer le tronçon récupéré (action en boucle donc, RAPPEL) contient nos pareil, boucle avec mymid entre chaque .... j'espère que c'est maintenant vraiment plus clair, prochaine étape.... je ne sais pas

FOUNI · Answer

SALUT

ENCORE MERCI

JE vais travailler avec tes infos très précieuses , garde le code sous le coude stp,
ne t'inpatiente pas , je cherche , et il est possible que je m'absente  1 semaine en vacances

merci pour l'info pour le livre , j'en ai  un qui s'appelle( VISUAL BASIC 6.0  de  diane zak edition reynald goulet  avec cd exo ), mais certaines explications sont pas assez détaillés


je ne lache pas  l'affaire



bonne soirée

FOUNI · Answer

RE -SALUT J' ai essayé de faire la boucle mais je n'arrive pas , je pense qu'il faut utilse DO WHILE LOOP jusqu'à présent , j'ai utilisé des boucles for next simple avec des variables correspondant à la première et dernières celules dans excel , j'ai également utilisé avec VB 6 do while (Not rs.EOF) pour des TABLES venant d ACCES avec une requête sql Mais je n'arrive pas à faire la boucle sur plusieurs chaines pour allez d'un TR à l'autre ouverture du fichier Data = ReadFile(App.Path & "\Y.html") lecture du fichier cela fonctionne bien Function ReadFile(ByVal FileName As String) As String Dim Free As Integer Free = FreeFile() Open FileName For Binary As Free ReadFile = String(LOF(1), "") Get Free, , ReadFile on reduit la chaine totale du premier TR AU DERNIER TR ReadFile = Mid$(ReadFile, InStr(1, ReadFile, "")) On enlève les "", ReadFile = Replace(ReadFile, "", vbNullString) ' Do While BOUCLE à l autre TR ??????? passage fonction MyMid ReadFile = MyMid(ReadFile, "", "") ' Loop Close Free End Function 'Récupérer une chaîne (inconnue) placée entre deux chaînes (connues) Private Function MyMid(ByRef Data As String, sLeft As String, sRight As String, Optional Start As Long = 1) As String Dim lPosL As Long, lPosR As Long lPosL InStr(Start, Data, sLeft): lPosR InStr(lPosL + 1, Data, sRight) If lPosL > 0 And lPosR > 0 Then MyMid = Mid$(Data, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft)) Else MyMid = vbNullString End If 'MsgBox End Function je vois bien que cela fonctionne mais comment boucler sans utiliser la longueur de la chaine en chiffre comme je l'ai déjà vu sur une autre formule et que j'ai déjà placé dans les messages plus haut help Peux tu encore m'aider merci

PCPT · Answer

attend si tu modifies les fonctions qui marchent çà va pas aller !!!

j'veux bien t'aider etc..., si je te dis data = readfile(fichier) est ok et que 3 messages après tu modifies la fonction....

relis mes précédents messages, tu as tous les éléments en main

et pour une boucle, tape FOR dans l'ide puis presse [F1], l'aide (msdn locale) est faite pour être utilisée

FOUNI · Answer

BONJOUR, voilà ce que j 'ai réusir à faire le récupère colonne 0 de mon flexgrid la chaine totale deS ligneS du fichier html puis je récupère les noms des personnes en colonne 1 et lactivité en colonne 2 par contre je n'arrive pas avec les couleurs , ni à récupérer la chaine quand elle est identique à la boucle précédente , je pense qu'il faut que je découpe la chaine en ligne et non en colonne comme le fait dans mon code declaration Public RR As Variant Public TT As String Public lig As String Private Sub Command1_Click() pour LIRE le fichier Data = ReadFile(App.Path & "\Y.html") End Sub Function ReadFile(ByVal FileName As String) As String Dim Start As Long, sRet As String Start = 1 Dim Free As Integer Free = FreeFile() Open FileName For Binary As Free ReadFile = String(LOF(1), 0) Get Free, , ReadFile ReadFile = Mid$(ReadFile, InStr(1, ReadFile, "")) ReadFile = Replace(ReadFile, "", vbNullString) 'ReadFile Replace(ReadFile, "", vbNullString) TT = -1 BOUCLE POUR RECUPERER LES CHAINES Do While Start TT = TT + 1 sRet = MyMid(ReadFile, "", "", Start) Me.MSFlexGrid.Col = 0 Me.MSFlexGrid.Row = TT Me.MSFlexGrid.Text = lig If Start = 0 Then GoTo FIN sRet = MyMid(ReadFile, " ", " ", Start - 1) Me.MSFlexGrid.Col = 1 Me.MSFlexGrid.Row = TT + 1 Me.MSFlexGrid.Text = lig sRet MyMid(ReadFile, " 0 And lPosR > 0 Then lig = Mid$(sRet, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft)) Start = lPosR + Len(sRight) Else lig = vbNullString Start = 0 End If End Function besoin aide sur boucle merci

PCPT · Answer

Get Free, , ReadFile

ReadFile = Mid$(ReadFile, InStr(1, ReadFile, "<TR>")) 
voilà l'endroit où je me suis arrêté de lire ta réponse

je n'ai pas lu le reste parce que NON NON et NON


si tu fais TA procédure, OK

mais là de nouveau tu modifies un code valide pour en faire n'importe quoi

ton code doit être dans le command1, travaillant sur le contenu de DATA

tu n'as pas à toucher à readfile ni aux autres fonctions de liens que j'ai indiqué

j'insiste parce que c'est important!!
le "tout fait fonctionnel" uniquement est à utiliser, plus tard tu adapteras bien sûr, mais ne grillons pas les étapes.

fait ton code autour d'un noyau qui est opérationnel, donc les 3 liens avec mes explications pas à pas

sans quoi en tout cas, çà sera sans moi 

bon courage

FOUNI · Answer

OK je pense que le code est bon , il fonctionne reste à faire une boucle et à mettre les couleurs je vois le principe mais il faut que je trouve où indiquer la fonction , mais avant je vais dormir merci pour l'aide , par contre je ne suis pas contre le fait que tu me donne ton code ou que tu corriges le mien si possible pour voir la structure fait par un pro j'espère pouvoir un jour "aider" à mon tour sans prétention Public RRR As Variant Public TT As String Public TTT As Long Public Start As Long, data As String Private Sub Command1_Click() data = ReadFile(App.Path & "\Y.html") TT = MyMid(data, "", "", Start) data = Replace(data, "", vbNullString) RRR = 0 Start = 1 Do While Start RRR = RRR + 1 TT = MyMid(data, " ", " ", Start) Me.MSFlexGrid.Col = 0 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, "", Start) TTT = Len(TT) TT = Mid(TT, 23, TTT) Me.MSFlexGrid.Col = 1 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 2 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 3 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 4 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 5 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 6 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 7 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 8 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 9 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT Loop End Sub Function ReadFile(ByVal FileName As String) As String Start = 1 Dim Free As Integer Free = FreeFile() Open FileName For Binary As Free ReadFile = String(LOF(1), 0) Get Free, , ReadFile Close Free End Function Private Function MyMid(ByRef Expression As String, sLeft As String, sRight As String, Optional Start As Long = 1) As String Dim lPosL As Long, lPosR As Long If Start = 0 Then Exit Function End If lPosL InStr(Start, Expression, sLeft): lPosR InStr(lPosL + 1, Expression, sRight) If lPosL > 0 And lPosR > 0 Then MyMid = Mid$(Expression, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft)) Start = lPosR + Len(sRight) Else MyMid = vbNullString Start = 0 End If End Function ' ' Function GetOleColorFromHtmlColor(ByVal sCol As String) As OLE_COLOR sCol = RightB$(sCol, LenB(sCol) - 2) sCol = Right$(sCol, 2) & Mid$(sCol, 3, 2) & Left$(sCol, 2) GetOleColorFromHtmlColor = CLng("&H00" & sCol) End Function BONNE JOURNEE ET MERCI MERCI

PCPT · Answer

Public RRR As Variant -> pourquoi public? pourquoi variant ? [i]Public TT As String Public TTT As Long /i -> bel effort sur les noms... un plaisir à relire [i]TT = MyMid(data, "", "", Start) data = Replace(data, "", vbNullString) /i -> pourquoi sur DATA si tu travailles sur TT Do While Start -> et start change quand? TT = MyMid(data, " ", " ", Start) -> alors pourquoi avoir récupéré avant? TT = Mid(TT, 23, TTT) -> d'où sort 23? rien de générique là! [i]TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 4 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT TT = MyMid(data, ">", "", Start) Me.MSFlexGrid.Col = 5 Me.MSFlexGrid.Row = RRR Me.MSFlexGrid.Text = TT (...)/i -> en effet j'ai parlé de boucle, mais tel quel tu ne pourras pas merci pour l'aide , par contre je ne suis pas contre le fait que tu me donne ton code ou que tu corriges le mien si possible pour voir la structure fait par un pro -> par un pro je ne sais pas, mais çà sellera le sujet en effet (au bout de 10 jours ^^) Option Explicit Private Sub Form_Load() Dim sFile As String Dim sBuffer As String Dim sText As String Dim asCol() As String Dim sColor As String Dim i As Integer Dim j As Integer ' récupération contenu du html sFile = ReadFile(App.Path & "\Y.html") ' cherche les 1er TR et supprime ce qu'il y a avant sFile = Mid$(sFile, InStr(1, sFile, "")) ' supprime toutes les qui ne servent à rien et qui ne sont même pas fermées sFile = Replace(sFile, "", vbNullString) ' on récupère tous les tronçons TR, en boucle, toujours en supprimant le texte récupéré i = 0 Do While InStr(1, sFile, "" & vbCrLf) sBuffer = MyMid(sFile, "" & vbCrLf, "") 'Debug.Print "¤" & sBuffer & "¤" sFile = Mid$(sFile, InStr(1, sFile, "") + 1 + Len(sBuffer)) i = i + 1 ' i=1 => header. sinon champs If i = 1 Then ' supprime les et récupère toutes les colonnes sBuffer = Replace(sBuffer, "", vbNullString) sBuffer = Replace(sBuffer, "", vbNullString) asCol = Split(sBuffer, "/TD>") For j = 0 To UBound(asCol) - 1 ' nouvelle colonne sColor = MyMid(asCol(j), "#", " ") sText = MyMid(asCol(j), ">", "<") With MSFlexGrid1 .Rows = 1 .Cols = j + 1 .ColWidth(j) = 2000 .Row = 0 .Col = j .Text = sText .CellFontBold = True .CellBackColor = GetOleColorFromHtmlColor("#" & sColor) End With Next j Else asCol = Split(sBuffer, "/TD>") ' colonne de gauche sColor = MyMid(asCol(0), "#", " ") sText = MyMid(asCol(0), " ", " ") With MSFlexGrid1 .Rows = .Rows + 1 .Row = .Rows - 1 .Col = 0 .Text = sText .CellFontBold = True .CellBackColor = GetOleColorFromHtmlColor("#" & sColor) ' texte des autres cellules For j = 1 To UBound(asCol) - 1 sColor = MyMid(asCol(j), "#", " ") sText = MyMid(asCol(j), ">", "<") .Col = .Col + 1 .Text = sText .CellBackColor = GetOleColorFromHtmlColor("#" & sColor) Next j End With End If Loop End Sub '---------------------------------------------------------------- ' LIRE LA TOTALITÉ DU CONTENU D'UN FICHIER ' http://www.codyx.org/snippet_lire-totalite-contenu-fichier_47.aspx#133 '---------------------------------------------------------------- Private Function ReadFile(ByVal FileName As String) As String Dim Free As Integer Free = FreeFile() Open FileName For Binary As Free ReadFile = String(LOF(1), 0) Get Free, , ReadFile Close Free End Function '---------------------------------------------------------------- '---------------------------------------------------------------- ' RÉCUPÉRER UNE CHAÎNE (INCONNUE) PLACÉE ENTRE DEUX CHAÎNES (CONNUES) ' http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1043 '---------------------------------------------------------------- Private Function MyMid(ByRef Expression As String, sLeft As String, sRight As String, Optional Start As Long = 1) As String Dim lPosL As Long, lPosR As Long lPosL InStr(Start, Expression, sLeft): lPosR InStr(lPosL + 1, Expression, sRight) If lPosL > 0 And lPosR > 0 Then MyMid = Mid$(Expression, lPosL + Len(sLeft), lPosR - lPosL - Len(sLeft)) Else MyMid = vbNullString End If End Function '---------------------------------------------------------------- '---------------------------------------------------------------- ' CONVERTIR UNE COULEUR LONG EN CODE HTML (ET VICE VERSA) ' http://www.codyx.org/snippet_convertir-couleur-long-code-html-vice-versa_254.aspx#818 '---------------------------------------------------------------- Private Function GetOleColorFromHtmlColor(ByVal sCol As String) As OLE_COLOR sCol = RightB$(sCol, LenB(sCol) - 2) sCol = Right$(sCol, 2) & Mid$(sCol, 3, 2) & Left$(sCol, 2) GetOleColorFromHtmlColor = CLng("&H00" & sCol) End Function '---------------------------------------------------------------- bon lecture

LIRE DONNE D'UN FICHIER.htlm et non d'une page html en vb6

27 réponses

Votre réponse

Discussions similaires