Poser une question

lire mot fichier txt a inserer dans un champ formulaire

Bonjour,

J'ai construit un formulaire qui doit renseigner automatiquement un champ à l'aide d'un fichier texte. Mon problème consiste à récuperer un mot bien précis provenant du fichier texte et de l'afficher avec un response.write.
J'ai donc fais une procédure de test, cela fonctionne j'arrive a récuperer le nom Netbios, à le stocker dans une variable et a afficher celle ci cependant j'ai encore un message d'erreur que je voudrai supprimer :

Erreur d'exécution Microsoft VBScript error '800a003e'
Fin du fichier atteinte
/Jean/liretxt.asp, line 18


Voici mon code asp :

<%' procédure d'ouverture et de lecture du fichier config.txt %>

<% Set FSO=Server.CreateObject("Scripting.FileSystemObject")%>

<% liste=Server.MapPath("/jean/config.txt") %>


<% config = liste & "\config.txt" %>

<% set config = FSO.OpenTextFile(liste,1,FALSE,FALSE) %>


<% While not config.atEndOfStream ' tant qu'on est pas à la fin du fichier
config.readline

While config.readLine() <> chr(61) 'tant qu'on est pas tombé sur le = correspondance chr(61)

motCle = config.read(7) ' lit les 7 premiers caractères d'une ligne.

if motCle = "Netbios" then
config.skip(1) ' lit les 1 caractères à droite de netb : le mot cle trouvé
nomordi = config.readLine()
response.write(nomordi)

end if
wend
Wend

config.close
%>

Pouvez-vous m'indiquez ou est mon erreur ? J'ai beau chercher je n'arrive pas a trouver.

Merci d'avance

Réponses

Re: lire mot fichier txt a inserer dans un champ formulaire  Oznog 6/7/2004    Re: lire mot fichier txt a inserer dans un champ formulaire  fx4sky 19/7/2004