Cgp to html converter

Soyez le premier à donner votre avis sur cette source.

Vue 5 582 fois - Téléchargée 207 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.

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).

Codes Sources

A voir également

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.