Bonjour à vous, je viens vous demander de l'aiden car je suis toujours sur une très grosse mise à jour d'un logiciel dont j'ai repris le développement, mais vu qu'il n'y a aucun commentaires, je lutte un peu surtout que le VB n'est pas mon dada
Enfin déjà avec l'aide que j'ai pu avoir dans mes précédents messages, je pense avoir presque finie la future mise à jour en gros à 95 % et avec 300 lignes de codes ajoutés ou modifier, afin d'ajouter les nouvelles fonctions et optimisé le travail
Mais là j'ai du mal sur cette partie de code, dont je ne comprend pas grand chose, je suis à la limite du rien
J'espère que vous pourrez m'aider à interpréter cette partie, voilà le code en question :
Enfin heureusement que je commente ce que je code maintenant car sinon le prochain développeur si j'arréte serais plus que perdu vu que je suis le 3éme développeur et qu'il n'y avait que 10 lignes de commentaires avant sur toutes l'applications.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 Dim li As Integer li = 0 li = li + 1 Dim nb_ligne As Integer Dim i As Integer Dim oFso As Scripting.FileSystemObject Dim oFile As Scripting.File ' Fichier Dim oTextStream As Scripting.TextStream ' Flux de texte Dim sTemp As String Dim ligne As String On Error GoTo fin If GetFileExist(App.Path & "\" & nom_fichier) Then li = li + 1 Set oFso = New Scripting.FileSystemObject Set oFile = oFso.GetFile(App.Path & "\" & nom_fichier) Set oTextStream = oFile.OpenAsTextStream(ForReading) ' Pour chaque ligne tant qu'on est pas à la fin du flux nb_ligne = 0 Do While Not oTextStream.AtEndOfStream If nb_ligne = 0 Then Me.txt_nom.Text = oTextStream.ReadLine ElseIf nb_ligne = 1 Then Me.txt_cd_image_fond.Text = oTextStream.ReadLine ElseIf nb_ligne > 1 Then ligne = oTextStream.ReadLine If Trim(ligne) <> "" Then tab_ligne(nb_ligne - 2, 0) = ligne For i = 1 To 9 tab_ligne(nb_ligne - 2, i) = oTextStream.ReadLine Next End If Else Call oTextStream.ReadLine End If nb_ligne = nb_ligne + 1 Loop End If
Merci encore beaucoup de votre aide.
Partager