A voir également:
- Peut on utiliser des templates dans ASP ?
- Comment utiliser chromecast sur tv - Guide
- Utiliser iphone comme webcam - Guide
- Quel service en ligne peut utiliser elissa pour collecter l'argent ? - Guide
- Utiliser tablette comme deuxieme ecran - Guide
- Comment utiliser teamviewer - Guide
2 réponses
oui tu peux :
voici une solution
'==========================================
' Lecture/écriture de fichiers
'==========================================
Function OpenFile(strfichier)
Dim objFS
Dim objFichier
On Error Resume Next
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFichier = objFS.OpenTextFile(strfichier)
OpenFile = objFichier.ReadAll
objFichier.Close
Set objFichier = Nothing
Set objFS = Nothing
If Err.Number <> 0 Then
ErrNum = Err.Number
ErrDesc = Err.Description
ErrSrc = Err.Source
End If
On Error Goto 0
If ErrDesc <> "" Then Err.Raise ErrNum, ErrSrc & "-->Ouverture de fichier (à mon avis héhé)", ErrDesc & vbCrLf & "-->Fichier à ouvrir: " & strfichier
End Function
'==========================================
' utilisation de la fonction
'==========================================
StrFile= OpenFile(Server.MapPath("..") & "/templates/tonfichier.tpl")
StrFrm=Replace(StrFile, "<--dns- date -->", date )
StrFrm=Replace(StrFrm, "<--dns- adresse1 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- adresse2 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- adresse3 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- nom -->", "" )
StrFrm=Replace(StrFrm, "<--dns- prenom -->", "" )
'on affiche le résultat
response.write StrFrm
'==========================================
' ton template ( ex: tonfichier.tpl )
'==========================================
bon je vais te le mettre mais il faut simplement comprendre que ce qui va être remplacé ce sont mes tags :
<--dns- date -->
<--dns- adresse1 -->
<--dns- adresse2 -->
<--dns- adresse3 -->
etc....
en résumé :
1- la fonction charge le fichier
2- remplacer les tags (de ton choix ....mais que tu as disposé dans le fichier tonfichier.tpl ) par les blocs HTML,textes ou vides que tu veux voir appliqué au résultat
3-afficher le résultat (response.write StrFrm )
PS:si tu l'utilises bien ........eh ben tu devrais gagner un temps fou pour ton developpement
j'éspére avoir été clair dans mes explixations ...
@+
voici une solution
'==========================================
' Lecture/écriture de fichiers
'==========================================
Function OpenFile(strfichier)
Dim objFS
Dim objFichier
On Error Resume Next
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFichier = objFS.OpenTextFile(strfichier)
OpenFile = objFichier.ReadAll
objFichier.Close
Set objFichier = Nothing
Set objFS = Nothing
If Err.Number <> 0 Then
ErrNum = Err.Number
ErrDesc = Err.Description
ErrSrc = Err.Source
End If
On Error Goto 0
If ErrDesc <> "" Then Err.Raise ErrNum, ErrSrc & "-->Ouverture de fichier (à mon avis héhé)", ErrDesc & vbCrLf & "-->Fichier à ouvrir: " & strfichier
End Function
'==========================================
' utilisation de la fonction
'==========================================
StrFile= OpenFile(Server.MapPath("..") & "/templates/tonfichier.tpl")
StrFrm=Replace(StrFile, "<--dns- date -->", date )
StrFrm=Replace(StrFrm, "<--dns- adresse1 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- adresse2 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- adresse3 -->", "" )
StrFrm=Replace(StrFrm, "<--dns- nom -->", "" )
StrFrm=Replace(StrFrm, "<--dns- prenom -->", "" )
'on affiche le résultat
response.write StrFrm
'==========================================
' ton template ( ex: tonfichier.tpl )
'==========================================
bon je vais te le mettre mais il faut simplement comprendre que ce qui va être remplacé ce sont mes tags :
<--dns- date -->
<--dns- adresse1 -->
<--dns- adresse2 -->
<--dns- adresse3 -->
etc....
en résumé :
1- la fonction charge le fichier
2- remplacer les tags (de ton choix ....mais que tu as disposé dans le fichier tonfichier.tpl ) par les blocs HTML,textes ou vides que tu veux voir appliqué au résultat
3-afficher le résultat (response.write StrFrm )
PS:si tu l'utilises bien ........eh ben tu devrais gagner un temps fou pour ton developpement
j'éspére avoir été clair dans mes explixations ...
@+
