Cgp to html converter
Soyez le premier à donner votre avis sur cette source.
Vue 5 725 fois - Téléchargée 218 fois
Description
Bonsoir,
J'ai eu l'idée de faire ce programme pour permettre d'ouvrir les liens contenus dans un groupe (format .cgp, réservé au navigateur MyIE) à partir d'un autre navigateur que MyIE.
Voici le fonctionnement:
On rédige le début de la page HTML en intégrant le nom du fichier enregistré dans le titre de la page.
On récupère ensuite chaque URL (inscrite sur chaque ligne après le "=") du fichier .cgp, ainsi que le nom de chaque page (avant le "="). A partir de ces informations, on rédige la suite de la page HTML en mettant un lien (avec comme nomination le nom de la page) qui affichera l'URL correspondante dans un cadre dans la même page (pour avoir les liens en permanence).
Enfin, on intègre le cadre qui affichera les différentes URL.
Petit programme tout simple, mais pratique pour qui en a besoin^^
N'hésitez pas à laisser des commentaires (avis & suggestions).
J'ai eu l'idée de faire ce programme pour permettre d'ouvrir les liens contenus dans un groupe (format .cgp, réservé au navigateur MyIE) à partir d'un autre navigateur que MyIE.
Source / Exemple :
Private Sub btnCGP_Click()
CDOpen.Filter = "Fichier .cgp|*.cgp"
CDOpen.ShowOpen
txtCGP.Text = CDOpen.FileName
End Sub
Private Sub btnConv_Click()
Dim tmp, Final, FP As String
Dim i, n As Integer
btnConv.Enabled = False
If txtCGP.Text <> "" And txtHTML.Text <> "" Then
Final = "<HTML><TITLE>Groupe ''" & CDSave.FileTitle & "''</TITLE><BODY>"
Open txtCGP.Text For Input As #1
While Not EOF(1)
Line Input #1, tmp
n = n + 1
For i = 1 To Len(tmp)
If Mid(tmp, i, 1) = "=" Then
If n = 1 Then
FP = Mid(tmp, i + 1, Len(tmp) - i)
Final = Final & "<a href='" & Mid(tmp, i + 1, Len(tmp) - i) & "' target='Frame'>" & Mid(tmp, 1, i - 1) & "</a>"
Else
Final = Final & "<br><a href='" & Mid(tmp, i + 1, Len(tmp) - i) & "' target='Frame'>" & Mid(tmp, 1, i - 1) & "</a>"
End If
End If
Next
Wend
Close #1
Final = Final & "<br><br><iframe name='Frame' src='" & FP & "' height=75% width=100%></iframe></BODY></HTML>"
Open txtHTML.Text For Output As #1
Print #1, Final
Close #1
Else
MsgBox "Veuillez remplir les champs requis!", vbCritical, "CGP to HTML converter"
End If
MsgBox "Conversion réussie!", vbInformation, "CGP to HTML converter"
End Sub
Private Sub btnHTML_Click()
With CDSave
.DefaultExt = "html"
.FileName = Mid(CDOpen.FileName, 1, Len(CDOpen.FileName) - 3) & "html"
.Filter = "Fichier .html|*.htm;*.html"
.ShowSave
End With
txtHTML.Text = CDSave.FileName
End Sub
Conclusion :
Voici le fonctionnement:
On rédige le début de la page HTML en intégrant le nom du fichier enregistré dans le titre de la page.
On récupère ensuite chaque URL (inscrite sur chaque ligne après le "=") du fichier .cgp, ainsi que le nom de chaque page (avant le "="). A partir de ces informations, on rédige la suite de la page HTML en mettant un lien (avec comme nomination le nom de la page) qui affichera l'URL correspondante dans un cadre dans la même page (pour avoir les liens en permanence).
Enfin, on intègre le cadre qui affichera les différentes URL.
Petit programme tout simple, mais pratique pour qui en a besoin^^
N'hésitez pas à laisser des commentaires (avis & suggestions).
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.