Erreur trop chiante en écrivant dans un fichier

Erreur trop chiante en écrivant dans un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 11-06-2004 à 14:32:02    

salut tous le monde ! c'est pour un petit renseignement :
 
Mon soft sera cencé découper un fichier pour ouvrir dans un RichTextBox les données qui concerne l'utilisateur selectionné (toutes les données des utilisateurs sont dans le meme fichier, d'ou la découpe) mais j'arrive plus a intégrer mon RTB dans le fichier a cause de cette erreur : "Longueur d'enregistrement incorecte". :(  
 
'Un bout de mon code en simplifié

Code :
  1. Open "fichier" for random as #1
  2. 'je ne précise pas Len car les enregistrements sont de longeur variable
  4. Do While not MonArray(MaVar)="[Fin]"
  5. Put #1, , MonArray(MaVar)
  6. MaVar = MaVar +1
  7. Loop
  9. Close #1


 
ça marchait bien, j'arrivais meme a enregistrer des images (bon, le fichier etait lourd mais ça marchait!) et lors d'une tentative de sauvegarde, l'erreur inatendu arriva )"Longueur d'enregistrement incorecte" ):fou:  
 
ça me rend fou cette histoire de sauvegarde :pt1cable:  
j'ai éssayer tous les modes Open, y'a toujours un truc qui fout la merde, parceque les lignes sont crypté!
 
Merci de repondre si vous avez une idées, meme une toute petite idée.
 :jap:

Reply

Marsh Posté le 11-06-2004 à 14:32:02   

Reply

Marsh Posté le 11-06-2004 à 14:43:59    

T'en as souvent des erreurs pas chiantes parce que là, je suis preneur :lol:  


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 11-06-2004 à 14:48:20    

J'appelle une erreur pas chiante celles qui sont facile a resoudre, ça fait 2 semaines que je tente par tous les moyens de réparer ce problème mais j'y arrive pas ! :cry:  
 
crois-tu pouvoir m'aider ?

Reply

Marsh Posté le 11-06-2004 à 15:02:47    

Si les lignes sont crytées, t'as peut-être un caractère type EOF dans le milieu qui arrête la lecture.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 11-06-2004 à 15:25:40    

Justement, avec les autres mode open, ça ne marchait pas parceque il y avait soit un caractère type saut de ligne, donc avec line Input ça ne prenait qu'une partis de la chaine donc ça renvoyait n'importe quoi au décryptage et ça plantait soit un carac EOF, meme consequence.
Mais avec le mode random, il enregistre chaque ligne comme une occurence donc pas de probleme de cryptage mais le fichier est plus lourd (encore ça c'est pas trop grave), ce qui est chiant c'est le bug de "longueur d'enregistrement incorrect"! lors de la sauvegarde (ecrit avec Put #1,, MonArray(myVar))  
 
y aurait-il une longeur d'enregistrement limité ? :??:

Reply

Marsh Posté le 11-06-2004 à 15:41:26    

Affiche la longueur de MonArray(MaVar) avant d'écrire.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 11-06-2004 à 15:47:23    

Open "fichier" for random as #1 Len = Len(MonArray(MyVar))
 
Comme ça quoi ?

Reply

Marsh Posté le 11-06-2004 à 16:12:06    

Je voulais dire:
debug.print len(MonArray(MaVar))
debug.print MonArray(MaVar)
pour voir sur quelle ligne ça coince, et sa longueur.


Message édité par JihemAir le 11-06-2004 à 16:13:09

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 11-06-2004 à 16:50:15    

la je suis pas chez moi je suis en stage (de compta), je fini à 18h,je regarderais ça et je te dirais.
 
je te remercie d'essayer de m'aider, c'est sympa. :)

Reply

Marsh Posté le 11-06-2004 à 20:03:20    

JihemAir a écrit :

debug.print len(MonArray(MaVar))
debug.print MonArray(MaVar)


 
 177  
!Ðß}™¯>Ƚ)?½Ó·u?=uhb/_8†½OèÆ(Þ8ãH‘)2+n­Õpée– áœÌ–"&²öé0_IèÒ½‡š{Øã[ û.•‹¼YЕI”.ÈSÏ·‡‚qʛV+2  ¢I¥ƒ3—Ýo³öÏØF0Š¶/þÞ5y ¨O¶Ê‹¦Ü…AÿIazŒ‰?S”UÅc؄2œ^_á(ÊZZÓ>¢,‰eà˜eçH
 
voila, c'est la ou ça plante ! :(  
 
sinon voila la total du code des procedures de lecture et de sauvegarde (+ 2 ou trois autres trucs) de mon module.
 
y'a une parti de la lecture qui se fait en amont dans la form qui se lance en premier
 
En fait la sub LoadForm charge juste dans la RTB les infos de l'utilisateur sauf si criteria = faux.
 
L'erreur arrive la ou il y a les Debug.Print
 
bon j'espère que tu auras le courage de le lire.
si d'autres repèrent des anomalies, qu'ils n'hésite pas non plus de me prévenir.
 

Code :
  1. Public Const PassCrypt As String = "InfosPassProtect"
  2. Public Const PassTwo As String = "SC963."
  4. Public Type Record
  5.     Name As String
  6. End Type
  7. Public a As Record
  9. Public OpenAccess As String
  10. Public NbLineFile As Long
  11. Public NumUsers As Long
  13. Public CPRESS As CPRESSDLL
  14. Public CRYPTE As CRYPTEURDLL
  16. Public Type USER
  17.     NumCpte As Long
  18.     PassWord As String
  19.     NomCpte As String
  20.     TypeCpte As Byte
  21. '    AcceCpte As Long
  22.     Particularity  As String
  23. End Type
  24. Public ADDUSER As USER
  26. Public Utilisateur() As USER
  28. Public USERCOUNT As Long
  30. Public USERACTIF As USER
  31.    
  32. Public List1() As String
  33. Public List2() As String
  34. Public List3() As String
  36. Public IsCreate As Boolean
  37. Public USERCREATE As USER
  39. Public IsSuppr As Boolean
  40. Public USERSUPPR As USER
  42. Private MaxLenCarac As Integer
  43.    
  44. Public Function AskPass(ByVal PassWord As String) As Boolean
  45. If PassWord = USERACTIF.PassWord Then AskPass = True
  46. End Function
  48. Public Function EtatCmdAction(ByVal Action As String) As String
  49. Select Case Action
  50.     Case "Open"
  51.     EtatCmdAction = "Ouvrir un compte"
  52. End Select
  53. End Function
  55. Public Sub LoadForm(ByVal Criteria As Boolean)
  56. ReDim List1(0)
  57. ReDim List2(0)
  58. ReDim List3(0)
  60. If Criteria = True Then
  61. A03Infos.Show
  62. End If
  64. Set CPRESS = New CPRESSDLL
  65. Set CRYPTE = New CRYPTEURDLL
  68. ReDim List1(0)
  69. A03Infos.Caption = "in - " & USERACTIF.NomCpte
  71. Open OpenAccess & "AlfaZZn.ced" For Random As #1
  73. Dim i1&
  74. '1111111111111111111111111111111111111111111111111111111111111111111111111
  75. Do While Not a.Name = "[User]"
  76. Get #1, , a.Name
  77.     i1 = i1 + 1
  78.     ReDim Preserve List1(i1)
  79.     List1(i1) = a.Name
  80.     Call Maximum(List1(i1))
  81.     Call addPG
  82. a.Name = CRYPTE.RC4(a.Name, PassCrypt)
  83. Loop
  85. Do While Not a.Name = "[Fin]"
  86. Get #1, , a.Name
  87.     i1 = i1 + 1
  88.     ReDim Preserve List1(i1)
  89.     List1(i1) = a.Name
  90.     Call Maximum(List1(i1))
  91.     Call addPG
  92. a.Name = CRYPTE.RC4(a.Name, PassCrypt)
  93. Loop
  94. '1111111111111111111111111111111111111111111111111111111111111111111111111
  96. '2222222222222222222222222222222222222222222222222222222222222222222222222
  97. 'Recherche du compte de l'utilisateur actif
  98. Do While Not ChargeList(Criteria, a.Name) = True
  99. Get #1, , a.Name
  100.     i1 = i1 + 1
  101.     ReDim Preserve List1(i1)
  102.     List1(i1) = a.Name
  103.     Call Maximum(List1(i1))
  104.     Call addPG
  105. a.Name = CRYPTE.RC4(a.Name, PassCrypt)
  106. Loop
  108. If Criteria = True Then
  109. Else
  110. Close #1
  111. Exit Sub
  112. End If
  113. '2222222222222222222222222222222222222222222222222222222222222222222222222
  115. Dim i2&
  116.     Open OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp" For Output As #2
  117.     ReDim List2(0)
  118.    
  119.     Do While Not a1 = "[Fin]"
  120.         Get #1, , a.Name
  121.         a1 = CRYPTE.RC4(a.Name, PassCrypt)
  122.        
  123.                     If a1 = "[Fin]" Then Exit Do
  124.                 i2 = i2 + 1
  125.                 ReDim Preserve List2(i2)
  126.                 List2(i2) = a.Name
  127.                 Call addPG
  128.         a2 = CRYPTE.RC4(a.Name, USERACTIF.PassWord & PassTwo)
  129.    
  130.         DoEvents
  131.         Print #2, a2
  132.     Loop
  133.     Len2 = i2
  134.    
  135.     Close #2
  136.     A03Infos.RTBox1.LoadFile (OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp" )
  137.     Kill OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp"
  138.    
  139. Dim i3&
  140. i3 = 1
  141. ReDim List3(i3)
  142. List3(i3) = a.Name
  143. Call Maximum(List3(i3))
  145. Do While Not Loc(1) + 1 = Seek(1) 'A revoir
  146. Get #1, , a.Name
  147.     i3 = i3 + 1
  148.     ReDim Preserve List3(i3)
  149.     List3(i3) = a.Name
  150.     Call Maximum(List3(i3))
  151.     Call addPG
  152. Loop
  153. Len3 = i3
  155. Close #1
  156. End Sub
  158. Private Function ChargeList(ByVal Criteria As Boolean, MyString As String) As Boolean
  159. If Criteria = True Then
  160. If MyString = "[" & USERACTIF.NumCpte & "]" Then ChargeList = True
  161. Else
  162. If EOF(1) = True Then ChargeList = True
  163. End If
  164. End Function
  166. Public Sub SavInFile()
  167. Set CPRESS = New CPRESSDLL
  168. Set CRYPTE = New CRYPTEURDLL
  170. A03Infos.RTBox1.SaveFile (OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp" )
  172. Dim i2&
  173.     Open OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp" For Input As #2
  174.     ReDim List2(0)
  175.    
  176.     Do While Not EOF(2)
  177.         Line Input #2, a.Name
  179.         i2 = i2 + 1
  180.         ReDim Preserve List2(i2)
  181.         List2(i2) = CRYPTE.RC4(a.Name, USERACTIF.PassWord & PassTwo)
  182.         Call Maximum(List2(i2))
  183.         Call addPG
  185.     Loop
  186.    
  187.    
  188.     Close #2
  189.     Kill OpenAccess & "C###U#" & USERACTIF.NomCpte & USERACTIF.NumCpte & ".tmp"
  191. Open OpenAccess & "AlfaZZn.ced" For Output As #1
  192. 'Vide le fichier
  193. Close #1
  195. Dim MyChaine As String
  196. Open OpenAccess & "AlfaZZn.ced" For Random As #1 'Len = MaxLenCarac + 2
  197. Dim i1&
  199. Put #1, , CRYPTE.RC4("[NbLine]", PassCrypt)
  200. Put #1, , CRYPTE.RC4(UBound(List1, 1) + UBound(List2, 1) + UBound(List3, 1), PassCrypt)
  202. Put #1, , CRYPTE.RC4("[NumUsers]", PassCrypt)
  203. Put #1, , CRYPTE.RC4(NumUsers, PassCrypt)
  205. Dim UserFind As Boolean
  206. Dim UserFind2 As Boolean
  207. i1 = 5
  208. For i1 = 5 To UBound(List1, 1)
  209.     If IsSuppr = True Then
  210.         If List1(i1) = CRYPTE.RC4("[User]", PassCrypt) Then
  211.             UserFind = True
  212.         End If
  213.        
  214.         If List1(i1) = CRYPTE.RC4(USERSUPPR.NumCpte, PassCrypt) And UserFind = True Then
  215.             If List1(i1 + 1) = CRYPTE.RC4(USERSUPPR.NomCpte, PassCrypt) Then
  216.                 If List1(i1 + 2) = CRYPTE.RC4(USERSUPPR.PassWord, PassTwo) Then 'a change en
  217.                    i1 = i1 + 5
  218.                    UserFind2 = True
  219.                 End If
  220.             End If
  221.         End If
  222.        
  223.         If List1(i1) = CRYPTE.RC4("[" & USERSUPPR.NumCpte & "]", PassCrypt) And UserFind2 = True Then
  224.             Do While Not List1(i1) = CRYPTE.RC4("[Fin]", PassCrypt)
  225.             i1 = i1 + 1
  226.             Loop
  227.             i1 = i1 + 1
  228.             IsSuppr = False
  229.             UserFind2 = False
  230.         End If
  231.         y = LOF(1)
  232.             If i1 >= UBound(List1, 1) Then Exit For
  233.         If List1(i1) = CRYPTE.RC4("[Fin]", PassCrypt) And UserFind = True Then
  234.         UserFind = False
  235.         End If
  236.        
  237.     End If
  239.     If IsCreate = True Then
  240.         If List1(i1) = CRYPTE.RC4("[User]", PassCrypt) Then
  241.             UserFind = True
  242.         End If
  243.        
  244.         If List1(i1) = CRYPTE.RC4("[Fin]", PassCrypt) And UserFind = True Then
  245.             Put #1, , CRYPTE.RC4(USERCREATE.NumCpte, PassCrypt)
  246.             Put #1, , CRYPTE.RC4(USERCREATE.NomCpte, PassCrypt)
  247.             Put #1, , CRYPTE.RC4(USERCREATE.PassWord, PassTwo)
  248.             Put #1, , CRYPTE.RC4(USERCREATE.TypeCpte, PassCrypt)
  249. '           Put #1, , CRYPTE.RC4(USERCREATE.AcceCpte, PassCrypt)
  250.             Put #1, , CRYPTE.RC4(USERCREATE.Particularity, PassCrypt)
  251.             UserFind = False
  252.         End If
  253.     End If
  254.  
  255. Put #1, , List1(i1)
  256. '    p = Loc(1)
  257. Next
  259. i2 = 0
  260. For i2 = 1 To UBound(List2, 1)
  261. Debug.Print Len(List2(i2))
  262. Debug.Print List2(i2)
  264. Put #1, , List2(i2)
  265. '    p = Loc(1)
  266. Next
  268. Dim i3&
  269. i3 = 0
  270. For i3 = 1 To UBound(List3, 1)
  271. MyChaine = List3(i3)
  272. Put #1, , List3(i3)
  273. '    p = Loc(1)
  274. Next
  276.     If IsCreate = True Then
  277.         Put #1, , CRYPTE.RC4("[" & USERCREATE.NumCpte & "]", PassCrypt)
  278.         Put #1, , CRYPTE.RC4("[Fin]", PassCrypt)
  279.     IsCreate = False
  280.     End If
  282. Close #1
  284. End Sub
  286. Public Sub KillCpte()
  287. IsSuppr = True
  288. End Sub
  291. Public Sub addPG()
  293. End Sub
  295. Public Sub Maximum(ByVal ListTruc As String)
  296. If Len(ListTruc) > MaxLenCarac Then MaxLenCarac = Len(ListTruc)
  297. End Sub


 
PS: La Sub Maximum ne sert plus.

Reply

Marsh Posté le 11-06-2004 à 20:03:20   

Reply

Marsh Posté le 13-06-2004 à 19:03:48    

T'as essayé d'utiliser le mode binaire ?
Pasque le mode random à la base il est utile si tu connais la longueur des enregistrements :o


Message édité par glod 2 le 13-06-2004 à 19:04:10
Reply

Marsh Posté le 14-06-2004 à 13:27:36    

Ouai, avec le mode binaire ça ne marchai pas non plus, l'erreur arrivai a un aute endroit mais y'avait donc toujours une erreur.
 
j'ai trouvé une solution, je calcul l'enregistrement le plus long avec ma fonction Maximum et je m'en sert comme ça :
  Open "fichier" for random as #1 Len = Len(MaxLenCarac)
Cette solution ne me plait pas trop quand meme parcequ'il faut enregistrer MaxLenCarac dns un autre fichier pour l'utiliser dans l'avenir.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed