Récupérer ligne dans fichier texte
pingwin
Messages postés
6
Date d'inscription
jeudi 31 juillet 2003
Statut
Membre
Dernière intervention
19 mai 2005
-
13 août 2003 à 09:37
pingwin Messages postés 6 Date d'inscription jeudi 31 juillet 2003 Statut Membre Dernière intervention 19 mai 2005 - 13 août 2003 à 14:46
pingwin Messages postés 6 Date d'inscription jeudi 31 juillet 2003 Statut Membre Dernière intervention 19 mai 2005 - 13 août 2003 à 14:46
A voir également:
- Récupérer ligne dans fichier texte
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Dérivée en ligne - Forum Delphi / Pascal
- Crypter un fichier texte ✓ - Forum Visual Basic
- Schema electrique en ligne - Forum VB.NET
1 réponse
pingwin
Messages postés
6
Date d'inscription
jeudi 31 juillet 2003
Statut
Membre
Dernière intervention
19 mai 2005
13 août 2003 à 14:46
13 août 2003 à 14:46
qqun peut-il m'aider car je galère grave. Voilà ce que j'ai fait: mais ça ne marche pas ou alors de manière aléatoire (les response.write c'est mon debugger) :
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
fichier="lotus_structured text_char12.txt"
chemin_fichier= Server.MapPath(fichier)
Set inF = FSO.OpenTextFile(chemin_fichier, 1, FALSE, FALSE)
While not inF.atEndOfStream ' tant qu'on est pas à la fin du fichier
While inF.readLine() <> chr(12) 'tant qu'on est pas tombé sur le caractère saut de page
motCle = inF.read(4) ' lit les 4 premiers caractères d'une ligne.
if motCle = "WebC" then
inF.skip(12)
titre = inF.readLine()
response.write(titre)
end if
if motCle = "$Rev" then
inF.skip(9)
date1 = inF.readLine()
date2 = left(date1,10)
response.write(date2)
end if
if motCle = "$Upd" then
inF.skip(9)
auteur = inF.readLine()
response.write(auteur)
end if
if motCle = "Subj" then
inF.skip(6)
descr = inF.readLine()
response.write(descr)
end if
if motCle = "Main" then
inF.skip(5)
id= inF.readLine()
id2 = left(id,5)
response.write(id2)
end if
wend
wend ' recommence la boucle
inF.close
%>
qqun peut-il me dépanner en me disant ce qui cloche (tout??????)
merci
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
fichier="lotus_structured text_char12.txt"
chemin_fichier= Server.MapPath(fichier)
Set inF = FSO.OpenTextFile(chemin_fichier, 1, FALSE, FALSE)
While not inF.atEndOfStream ' tant qu'on est pas à la fin du fichier
While inF.readLine() <> chr(12) 'tant qu'on est pas tombé sur le caractère saut de page
motCle = inF.read(4) ' lit les 4 premiers caractères d'une ligne.
if motCle = "WebC" then
inF.skip(12)
titre = inF.readLine()
response.write(titre)
end if
if motCle = "$Rev" then
inF.skip(9)
date1 = inF.readLine()
date2 = left(date1,10)
response.write(date2)
end if
if motCle = "$Upd" then
inF.skip(9)
auteur = inF.readLine()
response.write(auteur)
end if
if motCle = "Subj" then
inF.skip(6)
descr = inF.readLine()
response.write(descr)
end if
if motCle = "Main" then
inF.skip(5)
id= inF.readLine()
id2 = left(id,5)
response.write(id2)
end if
wend
wend ' recommence la boucle
inF.close
%>
qqun peut-il me dépanner en me disant ce qui cloche (tout??????)
merci