Soyez le premier à donner votre avis sur cette source.
Vue 5 725 fois - Téléchargée 218 fois
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
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.