High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Visual Basic 6.0 erreur 62

Dernière réponse le 22 jun 2004 à 16:02:50 coventry, le 21 jun 2004 à 11:28:51 
 Signaler ce message aux modérateurs

Salut,
en visual basic, lorsque j'ouvre un fichier texte contenant des caracteres ASCII de toutes sortes (en fait j'additionne des valeurs ascii et il m'en renvoie d'autres...), VB me donne l'erreur 62 : "Input past end of life".
Si j'ouvre un fichier contenant du texte "normal"(pas de caracteres bizaroides de l'ascii), mon programme n'a aucun probleme.

Voici les code qui ouvre le fichier : 

Private Sub cmdOuvrir_Click()
  Dim NumFile As Integer
  Dim Adr As Variant
  
  On Error GoTo TraitementErr

  NumFile = FreeFile
  
  With dlgCrypt
    .Flags = cdlOFNFileMustExist
    .Filter = "Fchiers textes (*.txt)|*.txt"
    .CancelError = True
    .ShowOpen
  End With
  
  Adr = dlgCrypt.FileName
  
  Open Adr For Input As NumFile
  txtFichier.Text = Input(LOF(NumFile), NumFile)
  Close NumFile
  
  Exit Sub
  
TraitementErr:
  If Err.Number = cdlCancel Then
    Exit Sub
  Else
    MsgBox Err.Number & " : " & Err.Description
  End If
End Sub


et voici le contenu d'un fichier .txt qu'il ne sait pas ouvrir (visionn avec le bloc-notes): 
"Vd|#j@nBL+‹kb#%wGjKnd5m.ڟ1m`^-8VGer3VVe>B6ш|,t?)NY:QvJK>HKj(N@Rej/HdFKQp!]ݯ|÷.hC$c?)W8Ube""'g݅WxTҖQb/gV:]FҐW4ZXAK$ҢQ'(ÃjoL䩡LQ2kd( ؑ^u7҉V9.YC3-4܊`-/@x[m1~έdi=ow婛LM h2bW!^Z\G ]m#ɕc:]9ʃ[f7HJwp]ukZ/҃)t
%엙~{oe鉛3НKeZ~qI?]5z['ʔΖ;xpç;W=֏梡soX?&y.vJMW]n/x빙MS/ܔenT4N]CNS65V](雘\F 9W+c 鉭IW8\-""ƙf47f^0ᕰKA>1sfLﳭ-Ό9*\lxek""Ң摧 .ڝOʃurX;ES85Ne<+*!ݛ9m1'D֍㟙7ύnvx(T&ՑQlʚlFw`15ٍKGk6`52( pd=-:i{9MY/ʖp#U5,͑Xe#Z˛?86#,cdBkaOu'V7/ƍ7(*G}8ɜ)\ t;P1HWqGo-υ`n'ڑ@V#&Pxp4Gdi*]6/eb-Z|^8ULg*g˛2<Տ,*қdwKbB\CcQ!>ç{jo!pRep<UbW&gL&Ѝ$u.<#f/≫_FתdJ{<k#sTLN52xWQ3dPm5Zؕ{R̅^i0JݑokaZn-r7ٸ&Wp +eaK.Vho""J?2Mf3@806$0HQ3=yS(!ب99nq(*L줗?C.H_b$DG%!pϗXrijrX
S:xa^75wdsA|aZPz:xUٓ}nq+Lܩ?Lp*Ĕ^e!1DWP|AΥ\<vȑ>=ܥWr2""҉6w \ݣUٌ 0Ój㥤\\X,ӿD撧Q;Κ' '*ɛW@HS;m|xceɃb}0Pݨ|]HX)D'j@n[952$қ㍡3ݍ\ ՍI@88_m-ՉVM
wgu V]H4؇^w椦L?5bM!ۍ^4לq;Lg[|ah25w@x\o""Щ7Ck""}eq_KBH=hDK>+ʚO_#5g˛2<Տ,*қdwKbB\CcxCk'Έp5أpm;ĉh1 QGk4לd.ѥpI5FdWqډdAd(Ov1]՗~1`NC$cC=]d(މt;0yT2ܗ`%9@:4{,Uifg:GwW#RXdz<=?8oXp^~[/ʖp4煨YD9Sx\NV89""*nJVLz\|ꑉCN5{ǎpx[ޛR<kc䆩?c'ʕLm%-


Merci.

Imagination is more important than knowledge.

Meilleures réponses pour « Visual Basic 6.0 erreur 62 » dans :
Tlcharger visual basic 6.0 (Résolu) Voir
Télécharger Visual Basic 6 Runtime (VB6 DLL) Voir Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) ncessaires pour excuter des programmes crits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
[visual basic 6.0] - base de donnes (Résolu) Voir
Introduction Visual Basic VoirPrsentation de Visual Basic Visual Basic est un outil dvelopp par Microsoft pour dvelopper facilement des applications fonctionnant sous Microsoft Windows . Visual Basic est, comme son nom l'indique, un outil visuel permettant de crer...
Posez votre question Répondre

1

coventry, le 21 jun 2004 à 14:13:27

La ligne a laquelle l'application plante est celle la : 

txtFichier.Text = Input(LOF(NumFile), NumFile)


J'ai t voir sur le site Microsoft. Voila ce qu'il memet pour l'erreur 62 de Visual Basic6 :
You can't read past the end-of-file position. This error has the following cause and solution:

* An Input # or Line Input # statement is reading from a file in which all data has been read or from an empty file.

Use the EOF function immediately before the Input # statement to detect the end of file.
* You used the EOF function with a file opened for Binary access.

EOF only works with files opened for sequential Input access. Use Seek and Loc with files opened for Binary access.


est-il possible que certains caracteres ascii du texte ne peuvent pas tre mis en variable, zone de texte ou tout simplement charg?
Au sinon, que dois-je faire?
merci

Imagination is more important than knowledge.

   
Répondre à coventry

2

coventry, le 21 jun 2004 à 14:54:39

J'ai russi!!!
J'ai mis ca : 

Do While Not EOF(NumFile)   ' Check for end of file.
   Line Input #NumFile, Temp   ' Read line of data.
loop


a la place de ca : 
txtFichier.Text = Input(LOF(NumFile), NumFile)


Temp est une variable Variant.
@+

Imagination is more important than knowledge.

   
Répondre à coventry

3

romain_natiez, le 21 jun 2004 à 14:58:34

Salut !
moi aussi g un problme sur vb6 mais c'est l'eereur 336
ca fait une heure que je cherche sur le net et .. rien
si sur le site de microsoft ils te disent comment utiliser l'aide de vb
mais si je vais sur leur site, c'est que je n'ai pas l'aide de VB
(ils sont malins!!!)

sinon comment as -tu fais pour avoir une info sur ton erreur, est-ce que tu as mis le numro de l'erreur et ca ta donn ce que tu cherchais ?

en attendant je vais faire d'autre recherches

ton message d'erreur signifie "Numro d'enregistrement incorrect"

mais j'en sait pas plus

dis moi koi si tu peu m'aider, je te rendrai la pareille

merci d'avance
romain_natiez

   
Répondre à romain_natiez

4

coventry, le 21 jun 2004 à 21:02:25

Salut!!
pour l'aide de Microsoft en ligne (anglais) tu vas voir en gnral sur msdn.microsoft.com mais pour Visual Basic 6.0 en particulier c'est http://msdn.microsoft.com/library/default.asp?url=/library/e­n-us/VBRef98/html/vbmscLROverview.asp
Pour les erreurs tu click sur Trappable Errors --> Core Visual Basic Language.
Mais ton erreur n'est apparement pas dedans, alors fais une recherche dans la MSDN...
Pour info : pour les fonctions, vnements,...du language VB tu ne dois pas clicker sur Trappable Errors mais sur Language.
Voila @+ et bonne chance
et j'ai regl mon probleme pas la peine de chercher ;)

Imagination is more important than knowledge.

   
Répondre à coventry

5

romain_natiez, le 22 jun 2004 à 09:21:01

Moi aussi g rgl mon problme,
il y a meme un gars sympa ki ma refil un fichier pdf avec la liste des erreurs rcuprables, elles y sont pas toutes mais c dj ca.
Si tu veux la liste, je te l'envoie sans problme.

Romain_natiez

   
Répondre à romain_natiez

6

 coventry, le 22 jun 2004 à 16:02:50

Ok tu peux me l'envoyer a mon adresse dans mon proil?
merci

Imagination is more important than knowledge.

   
Répondre à coventry
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net