Caractères en accents pas juste

**pascb423** · 26/10/2018, 20h33

je vous donne la source complète de mon test si ca vous interesse de jeter un coup d’œil si il y a des choses qui be joue pas pour l'encodage?

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
Imports System.Net.Mail
Imports System.IO
Imports System.Net.Mime.MediaTypeNames
Imports System.Net
Imports System
Imports Microsoft.VisualBasic
Imports System.Text.Encoding.UTF7
 
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        'validation_atelier.Show()
        Process.Start("ateliers.txt")
        'ComboBox1.Items.Clear()
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
 
        Dim SR5 As New StreamReader("ateliers.txt")
        Do Until SR5.Peek = -1
            Dim Ligne As String
            Ligne = SR5.ReadLine()
            Me.ComboBox1.Items.Add(Ligne)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
        SR5.Close()
 
        Dim SR7 As New StreamReader("ateliers.txt")
        Do Until SR7.Peek = -1
            Dim Ligne As String
            Ligne = SR7.ReadLine()
            Me.ComboBox4.Items.Add(Ligne)
        Loop
        ComboBox4.Sorted = True
        If ComboBox4.Items.Count > 0 Then
            Me.ComboBox4.SelectedIndex = 0
        End If
        'TextBox1.Text = 1
        SR7.Close()
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If TextBox1.Text = "" Then
            TextBox1.Text = "0"
        End If
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If My.Computer.FileSystem.FileExists(".\ateliers\" & ComboBox1.Text & ".txt") Then
 
        Else
            Dim sw6 As New StreamWriter(".\ateliers\" & ComboBox1.Text & ".txt")
            sw6.Close()
        End If
        'Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox2.Items.Clear()
        Dim SR3 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt", System.Text.Encoding.UTF7) ', System.Text.Encoding.UTF7)
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        ComboBox2.Sorted = True
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
            ComboBox3.Text = ""
        End If
        SR3.Close()
 
        'ComboBox4.Items.Clear()
        'Dim SR4 As New StreamReader("ateliers.txt" )
        'Do Until SR4.Peek = -1
        ' Dim Ligne As String
        'Ligne = SR4.ReadLine()
        'Me.ComboBox4.Items.Add(Ligne)
        'Loop
        'ComboBox4.Sorted = True
        'If ComboBox4.Items.Count > 0 Then
        ' Me.ComboBox4.SelectedIndex = 0
        'End If
        'SR4.Close()
 
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If My.Computer.FileSystem.FileExists(".\machines\" & ComboBox2.Text & ".txt") Then
 
        Else
            Dim sw8 As New StreamWriter(".\machines\" & ComboBox2.Text & ".txt")
            sw8.Close()
        End If
        'Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox3.Items.Clear()
        Dim SR3 As New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.UTF7) ' )
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox3.Items.Add(Ligne2)
        Loop
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        Else
            ComboBox3.Text = ""
        End If
        SR3.Close()
    End Sub
 
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
 
        If ComboBox1.Text = "" Then
            MsgBox("Vous devez entrer d'abord au moins un atelier")
            Exit Sub
        End If
 
 
        Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox2.Items.Clear()
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub Button7_LostFocus(sender As Object, e As EventArgs) Handles Button7.LostFocus
 
 
        ComboBox1.Items.Clear()
        Dim SR2 As New StreamReader("ateliers.txt")
        Do Until SR2.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR2.ReadLine()
            Me.ComboBox1.Items.Add(Ligne2)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
        SR2.Close()
 
 
        For a As Integer = 0 To ComboBox4.Items.Count - 1
            Dim mot = ComboBox4.Items(a)
            If ComboBox1.Items.Contains(mot) = False Then
                'For s = 0 To ComboBox2.Items.Count - 1
                'For w = 0 To ComboBox3.Items.Count - 1
                'DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Prochain entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'Next
                'Next
                System.IO.File.Delete(".\ateliers\" & mot & ".txt")
                Dim filename As String
                filename = ".\entretien.ini"
                ' lit le fichier complètement ligne par ligne
                Dim fileContents As List(Of String) = File.ReadAllLines(filename).ToList
                ' on enlève ce que l'on veut
                For i = fileContents.Count - 1 To 0 Step -1  'on part de la fin car on va  enlever des éléments de la liste et non les remplacer
                    If fileContents(i).Contains(mot) Then
                        'attention contains enlève la ligne si le critère est respecté alors il faut que cela soit le plus précis possible
                        'si  la ligne est toujours identique tu peux faire If fileContents(i) = "critère de sélection" Then
                        fileContents.RemoveAt(i)
                        'i -= 1
                    End If
                Next
                ' on réécrit le fichier
                'File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & ".\entretien.ini", RichTextBox1.Lines, Encoding.UTF7)
 
 
 
                File.WriteAllLines(filename, fileContents.ToArray, System.Text.Encoding.UTF7)
 
                ecrireINI("Prochain entretien", "essai", "essai")
                DeleteKey(".\entretien.ini", "Prochain entretien", "essai")
 
 
 
 
 
 
            End If
        Next
 
 
 
        'efface les lignes vides
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = "ateliers.txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        nvoFichier = "ateliers" & "_2.txt"
        Using sw As StreamWriter = File.CreateText(nvoFichier)
            Try
                Using sr6 As StreamReader = New StreamReader("ateliers.txt", System.Text.Encoding.UTF7)
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    ' of the file is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            'MsgBox("Votre fichier " & "ateliers.txt" & " contient des lignes vides, enlever les lignes vides")
                            'Exit Sub
                            sw.WriteLine(line, System.Text.Encoding.UTF7)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        'Shell("ren D: \projetsvisualstudio\Reparations\Reparations\bin\Debug\ateliers_2.txt ateliers.txt")
        'Dim myProcess As New Process()
        'myProcess.StartInfo.FileName = "ren" 'l'application
        'myProcess.StartInfo.Arguments = ".\ateliers_2.txt ateliers.txt" 'les paramètres passés à l'application
        'myProcess.StartInfo.CreateNoWindow = True
        'myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        'myProcess.Start() 'lance le process
        'myProcess.WaitForExit() 'attend qu'il soit terminé avant d'aller plus loin
        'myProcess.Close() 'ferme le process
 
 
 
 
 
        My.Computer.FileSystem.DeleteFile("ateliers.txt")
        My.Computer.FileSystem.RenameFile("ateliers_2.txt", "ateliers.txt")
        'ren "D:\projets visual studio\Reparations\Reparations\bin\Debug\"ateliers_2.txt ateliers.txt
        ComboBox4.Items.Clear()
        Dim SR4 As New StreamReader("ateliers.txt")
        Do Until SR4.Peek = -1
            Dim Ligne As String
            Ligne = SR4.ReadLine()
            Me.ComboBox4.Items.Add(Ligne)
        Loop
        ComboBox4.Sorted = True
        If ComboBox4.Items.Count > 0 Then
            Me.ComboBox4.SelectedIndex = 0
        End If
        SR4.Close()
 
        ComboBox1.Items.Clear()
        Dim SR7 As New StreamReader("ateliers.txt")
        Do Until SR7.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR7.ReadLine()
            Me.ComboBox1.Items.Add(Ligne2)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        Else
            Me.ComboBox1.Text = ""
        End If
        SR7.Close()
 
 
 
 
 
 
 
    End Sub
 
    Private Sub Button8_LostFocus(sender As Object, e As EventArgs) Handles Button8.LostFocus
        Dim SR1 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR1.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR1.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
        End If
        SR1.Close()
        If ComboBox1.Text = "" Then
 
            Exit Sub
        End If
 
        For a As Integer = 0 To ComboBox5.Items.Count - 1
            Dim mot = ComboBox5.Items(a)
            If ComboBox4.Items.Contains(mot) = False Then
                'For s = 0 To ComboBox2.Items.Count - 1
                'For w = 0 To ComboBox3.Items.Count - 1
                'DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Prochain entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'Next
                'Next
                System.IO.File.Delete(".\machines\" & mot & ".txt")
                Dim filename As String
                filename = ".\entretien.ini"
                ' lit le fichier complètement ligne par ligne
                Dim fileContents As List(Of String) = File.ReadAllLines(filename).ToList
                ' on enlève ce que l'on veut
                For i = fileContents.Count - 1 To 0 Step -1  'on part de la fin car on va  enlever des éléments de la liste et non les remplacer
                    If fileContents(i).Contains(mot) Then
                        'attention contains enlève la ligne si le critère est respecté alors il faut que cela soit le plus précis possible
                        'si  la ligne est toujours identique tu peux faire If fileContents(i) = "critère de sélection" Then
                        fileContents.RemoveAt(i)
                        'i -= 1
                    End If
                Next
                ' on réécrit le fichier
                'File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & ".\entretien.ini", RichTextBox1.Lines, Encoding.UTF7)
 
 
 
                File.WriteAllLines(filename, fileContents.ToArray, System.Text.Encoding.UTF7)
 
                ecrireINI("Prochain entretien", "essai", "essai")
                DeleteKey(".\entretien.ini", "Prochain entretien", "essai")
 
 
 
 
 
 
            End If
        Next
 
 
 
 
 
 
 
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = ".\ateliers\" & ComboBox1.Text & ".txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        'nvoFichier = ".\ateliers\" & ComboBox1.Text & "_2.txt"
        Using sw As StreamWriter = File.CreateText(".\ateliers\" & ComboBox1.Text & "_2.txt")
            Try
                Using sr6 As StreamReader = New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    'of the file Is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            sw.WriteLine(line, System.Text.Encoding.UTF7)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        Dim nom As String
        nom = ComboBox1.Text
        My.Computer.FileSystem.DeleteFile(".\ateliers\" & ComboBox1.Text & ".txt")
        My.Computer.FileSystem.RenameFile(".\ateliers\" & ComboBox1.Text & "_2.txt", nom & ".txt")
 
        'Using sw As StreamWriter = File.CreateText(".\ateliers\" & ComboBox1.Text & ".txt")
        'End Using
 
        'Dim sr As New System.IO.StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        'Dim str1 As String = sr.ReadToEnd()
        'SR.Close()
        'str1 = str1.Replace(vbNewLine, String.Empty)
        'Dim sw As New System.IO.StreamWriter(".\ateliers\" & ComboBox1.Text & ".txt")
        'sw.WriteLine(str1)
        'sw.Close()
 
 
 
 
 
 
 
 
 
 
 
 
 
        ComboBox2.Items.Clear()
        Dim SR3 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
        End If
        For a As Integer = 0 To ComboBox5.Items.Count - 1
            Dim mot = ComboBox5.Items(a)
            If ComboBox2.Items.Contains(mot) = False Then
                System.IO.File.Delete(".\machines\" & mot & ".txt")
            End If
        Next
        'ComboBox2.Sorted = True
        'If ComboBox2.Items.Count > 0 Then
        'Me.ComboBox2.SelectedIndex = 0
        'End If
        SR3.Close()
 
 
        ComboBox5.Items.Clear()
        Dim SR4 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR4.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR4.ReadLine()
            Me.ComboBox5.Items.Add(Ligne2)
        Loop
        ComboBox5.Sorted = True
        If ComboBox5.Items.Count > 0 Then
            Me.ComboBox5.SelectedIndex = 0
        Else
            ComboBox5.Text = ""
        End If
        SR4.Close()
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label4.Text = DateTime.Now.ToString("HH:mm:ss") 'Pour l'heure 1er label
        Label5.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date 2eme label
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim res As Double
        Dim chemin As String = ".\ateliers\" & ComboBox1.Text & ".txt"
        res = FileLen(chemin)
        If res = 0 Then
            MsgBox("Vous devez entrer d'abord au moins une machine")
            Exit Sub
        End If
 
 
 
        Process.Start(".\machines\" & ComboBox2.Text & ".txt")
        ComboBox3.Items.Clear()
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        End If
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        'Dim filename As String
        'filename = ".\entretien.ini"
        'Dim ligne2 As String
 
        'ComboBox5.Items.Clear()
        'Dim sr3 As StreamReader = New StreamReader(filename )
        'While sr3.EndOfStream = False
        'ligne2 = sr3.ReadLine()
        'If ligne2 = "[Prochain entretien]" Then
        'For i = 1 To 3
        'ComboBox5.Items.Add(sr3.ReadLine())
        'Next
        'Exit While
        'End If
        'End While
        'If ComboBox5.Items.Count > 0 Then
        'Me.ComboBox5.SelectedIndex = 0
        'End If
        'ComboBox5.Sorted = True
 
        'largeur adaptée au texte
        'Dim length = 0
        'Dim maxlength = 0
        'Dim i2 As Integer = 0
        'Dim g As Graphics = ComboBox5.CreateGraphics
        'Dim stringsize As New SizeF
 
        'For i2 = 0 To ComboBox5.Items.Count - 1
        'ComboBox5.SelectedIndex = i2
        ' stringsize = g.MeasureString((ComboBox5.GetItemText(ComboBox5.Items(i2))), ComboBox5.Font)
        'length = stringsize.Width
        'If length > maxlength Then
        'maxlength = length
        'End If
        'Next i2
 
        'Me.ComboBox5.Width = maxlength
    End Sub
 
    Private Sub Button2_LostFocus(sender As Object, e As EventArgs) Handles Button2.LostFocus
        Dim res As Double
        Dim chemin As String = ".\ateliers\" & ComboBox1.Text & ".txt"
        res = FileLen(chemin)
        If res = 0 Then
 
            Exit Sub
        End If
 
 
 
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = ".\machines\" & ComboBox2.Text & ".txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        nvoFichier = ".\machines\" & ComboBox2.Text & "_2.txt"
        Using sw As StreamWriter = File.CreateText(nvoFichier)
            Try
                Using sr6 As StreamReader = New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.UTF7)
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    ' of the file is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            sw.WriteLine(line)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        Dim nom As String
        nom = ComboBox2.Text
        My.Computer.FileSystem.DeleteFile(".\machines\" & ComboBox2.Text & ".txt")
        My.Computer.FileSystem.RenameFile(".\machines\" & ComboBox2.Text & "_2.txt", nom & ".txt")
        ComboBox3.Items.Clear()
        Dim SR3 As New StreamReader(".\machines\" & ComboBox2.Text & ".txt")
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox3.Items.Add(Ligne2)
        Loop
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        Else
            ComboBox3.Text = ""
        End If
        SR3.Close()
    End Sub
 
 
 
    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text <> "  .  ." Then
            ecrireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, MaskedTextBox1.Text)
        End If
    End Sub
 
 
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
        If TextBox1.Text = "" Then
            TextBox1.Text = "0"
        End If
        If TextBox1.Text <> "0" Then
            ecrireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, TextBox1.Text)
        End If
        jours = TextBox1.Text
        If MaskedTextBox1.Text <> "  .  ." Then
            dateentretien = DateAdd("d", jours, MaskedTextBox1.Text)
        End If
        If TextBox1.Text <> "0" Then
            ecrireINI("Prochain entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, dateentretien)
        End If
        If TextBox1.Text = "0" Or TextBox1.Text = "" Then
            DeleteKey(".\entretien.ini", "Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
            DeleteKey(".\entretien.ini", "Prochain entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
            DeleteKey(".\entretien.ini", "Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        End If
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        prochain_entretien.Show()
        prochain_entretien.ListView1.View = View.Details
        prochain_entretien.ListView1.Columns.Add("Prochain(s) entretien(s) à prévoir:", 1235, HorizontalAlignment.Left)
        prochain_entretien.ListView1.Items.Add("_________________________________________________________________________________________________________________")
        'prochain_entretien.ListView1.Columns.Add("___________________________________", 1235, .Left)
        'prochain_entretien.ListView1.Columns.Add("Notes", 100, HorizontalAlignment.Left)
        'prochain_entretien.ListView1.Columns.Add("Personne(s)", 300, HorizontalAlignment.Left)
        Dim ligne As String
        Dim filename As String
        filename = ".\entretien.ini"
        Dim ligne2 As String
        Dim sr3 As StreamReader = New StreamReader(filename, System.Text.Encoding.UTF7)
        While sr3.EndOfStream = False
            ligne2 = sr3.ReadLine()
            If ligne2 = "[Prochain entretien]" Then
                'For i = 1 To 1000
                ' While ligne2 <> "" 'si la ligne suivant ton bloc à récupérer est vide
                'While ligne2 <> "[Bloc suivant]" 's'il y a un autre bloc juste après
                While sr3.EndOfStream = False 'si c'est le dernier bloc et la fin du fichier
                            Dim MyLine As ListViewItem = New ListViewItem(New String() {sr3.ReadLine})
                    prochain_entretien.ListView1.Items.Add(MyLine)
                            'Next
                        End While
                '    End While
                'End While
 
                Exit While
            End If
        End While
    End Sub
 
End Class

**Phil Rob** · 26/10/2018, 21h15

Je rebondis sur le message précédent : c'est vrai qu'il existe quelques difficultés à faire exécuter par Shell des commandes auxquelles il faut passer des paramètres ...
La commande File.Move("X:\Tmp\MonFichier", "X:\Tmp\FichierRenomme") est la meilleure méthode de la panoplie File.
Mais je n'en démords pas, renommer un fichier (avec la même extension) ne change pas son contenu.
Le fond du problème est ailleurs et, si quelqu'un le trouve, je suis preneur ...

OK, je vais me risquer à entrer dans ton code ...
Mais en attendant, pour la syntaxe de Shell, voici : Shell("cmd /c rename d:\tmp\y.txt x.txt")
Il faut donc exécuter cmd /c et lui passer la commande Rename dans ce cas, sans oublier que seul le second paramètre de Rename ne peut contenir de chemin.
Bon je vais regarder ton code ...

Dur dur ..., parce que tu es sans doute le seul à bien comprendre la finalité du programme et aussi parce que je ne peux exécuter ton code et faire les tests moi-même.

J'ai toutefois relevé quelques soucis avec les ouvertures de fichier, en écriture surtout. Un StreamWriter doit être ouvert lors de son instanciation et non préallablement par un File.CreateText.

Bref, Je te propose de copier pour sauvegarde tout le contenu de ton dossier de développement dans un endroit sûr de ton disque dur et de faire les quelques remplacements (<CRTL>+<F> te permet de trouver rapidement les endroits) énumérés dans le code suivant :

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
40
41
42
43
44
45
46
Remplacer :
 
Using sw As StreamWriter = File.CreateText(nvoFichier)  ‘il y en 3, je crois et ce n’est pas toujours nvoFichier
 
Par :
 
Using sw As StreamWriter = New StreamWriter(nvoFichier, False, System.Text.Encoding.Default) ‘avec nvoFichier ou l'autre nom
 
Ce premier remplacement pourrait être le fond de ton problème initial.
 
'******************
Et : 
 
sw.WriteLine(line, System.Text.Encoding.UTF7)  ‘ il y en a 2
 
Par :
 
sw.WriteLine(line) ‘ Pas d’Encoding ici, cela a été fait à l’ouverture du fichier
 
'******************
Et :
 
New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.UTF7) ‘il y en a beaucoup, ± 15
 
Par :
 
New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.Default) ‘ Je propose le Default plutôt que l’UTF7. Note ici que l’Import n’est pas nécessaire dans cette écriture
' il sera toujours possible de remplacer plus tard Default par UTF7 s'il le faut.
 
'******************
Et (probablement sans lien avec ton problème initial) :
 
My.Computer.FileSystem.DeleteFile…
 
Par :
 
File.Delete(«FichierAEffacer »)
 
'******************
Et (sans lien non plus avec ton problème initial) :
 
My.Computer.FileSystem.RenameFile("ateliers_2.txt", "ateliers.txt")
 
Par :
 
File.Move("AncienNom", "NouveauNom")

Je ne reprendrai plus de message ce soir, je les verrai demain.
Bon travail et bonne nuit quand même ...

**Delaney** · 26/10/2018, 23h13

Il y a quand même des comportements étrange car j'ai testé la partie de code avec File.CreateText et un encodage en UTF8 et je n'ai aucun soucis pour transférer le contenu du fichier dans un autre fichier et le renommer et sans encoder l'écriture.

concernant le code complet

je ne vois pas l’intérêt de ça et en plus il faudrait que cela soit UTF8 ou default

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Text.Encoding.UTF7

j'ai remarqué ça au début du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim SR5 As New StreamReader("ateliers.txt")
 Dim SR7 As New StreamReader("ateliers.txt")
Dim SR1 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")

Il faudrait ajouter l'encodage en default ou UTF8.

idem remplacer tous les UTF7 par des UTF8 ou default. En effet UTF7 ne fonctionne pas sur tous les tests que j'ai effectué.

Par ailleurs tu peux vérifier facilement si la lecture se fait correctement en vérifiant ce qui s'affiche dans ta combobox contenant les lignes complètes de ton fichier .text. Si tu n'as pas le bon encodage, tu a un problème d'accent et de ° dans la combobox.

donc bilan : il te manque dans ton code des encodages et ceux qui sont fait ne le sont pas sous le bon encodage. Le problème peut venir de là.

@Phil Rob : si je propose aussi UTF8, c'est que j'ai fait des tests avec default et que j'ai eu des cas où cela donne pas ce qu'on attend alors que tous les tests en UTF8 ont fonctionné chez moi (VB10)... UTF8 est normalisé alors que UTF7 est un dérivé de UTF8 et pose parfois des problèmes.

**Phil Rob** · 27/10/2018, 09h28

Bonjour,
Si tu n'es pas arrivé au résultat escompté en effectuant les remplacements que je t'ai proposés, peux-tu nous transmettre un extrait du fichier d'origine qui contient des accentués et un extrait correspondant du fichier où les accentués sont erronés ?
A toutes fins utiles, je te renvoie ci-dessous ton code complet dans lequel j'ai fait les remplacements que je proposais pour les accès aux fichiers en lecture et en écriture (je n'ai pas traité les Delete, ni les Rename, que je considère hors du problème).

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
Imports System.Net.Mail
Imports System.IO
Imports System.Net.Mime.MediaTypeNames
Imports System.Net
Imports System
Imports Microsoft.VisualBasic
'Imports System.Text.Encoding.UTF7
 
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
        'validation_atelier.Show()
        Process.Start("ateliers.txt")
        'ComboBox1.Items.Clear()
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Timer1.Start()
 
        Dim SR5 As New StreamReader("ateliers.txt", System.Text.Encoding.Default)
        Do Until SR5.Peek = -1
            Dim Ligne As String
            Ligne = SR5.ReadLine()
            Me.ComboBox1.Items.Add(Ligne)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
        SR5.Close()
 
        Dim SR7 As New StreamReader("ateliers.txt", System.Text.Encoding.Default)
        Do Until SR7.Peek = -1
            Dim Ligne As String
            Ligne = SR7.ReadLine()
            Me.ComboBox4.Items.Add(Ligne)
        Loop
        ComboBox4.Sorted = True
        If ComboBox4.Items.Count > 0 Then
            Me.ComboBox4.SelectedIndex = 0
        End If
        'TextBox1.Text = 1
        SR7.Close()
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If TextBox1.Text = "" Then
            TextBox1.Text = "0"
        End If
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If My.Computer.FileSystem.FileExists(".\ateliers\" & ComboBox1.Text & ".txt") Then
 
        Else
            Dim sw6 As New StreamWriter(".\ateliers\" & ComboBox1.Text & ".txt", False, System.Text.Encoding.Default)
            sw6.Close()
        End If
        'Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox2.Items.Clear()
        Dim SR3 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt", System.Text.Encoding.Default)
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        ComboBox2.Sorted = True
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
            ComboBox3.Text = ""
        End If
        SR3.Close()
 
        'ComboBox4.Items.Clear()
        'Dim SR4 As New StreamReader("ateliers.txt", System.Text.Encoding.Default) 
        'Do Until SR4.Peek = -1
        ' Dim Ligne As String
        'Ligne = SR4.ReadLine()
        'Me.ComboBox4.Items.Add(Ligne)
        'Loop
        'ComboBox4.Sorted = True
        'If ComboBox4.Items.Count > 0 Then
        ' Me.ComboBox4.SelectedIndex = 0
        'End If
        'SR4.Close()
 
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        If My.Computer.FileSystem.FileExists(".\machines\" & ComboBox2.Text & ".txt") Then
 
        Else
            Dim sw8 As New StreamWriter(".\machines\" & ComboBox2.Text & ".txt", False, System.Text.Encoding.Default)
            sw8.Close()
        End If
        'Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox3.Items.Clear()
        Dim SR3 As New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.Default)
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox3.Items.Add(Ligne2)
        Loop
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        Else
            ComboBox3.Text = ""
        End If
        SR3.Close()
    End Sub
 
 
    Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click
 
        If ComboBox1.Text = "" Then
            MsgBox("Vous devez entrer d'abord au moins un atelier")
            Exit Sub
        End If
 
 
        Process.Start(".\ateliers\" & ComboBox1.Text & ".txt")
        ComboBox2.Items.Clear()
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub Button7_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.LostFocus
 
 
        ComboBox1.Items.Clear()
        Dim SR2 As New StreamReader("ateliers.txt", System.Text.Encoding.Default)
        Do Until SR2.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR2.ReadLine()
            Me.ComboBox1.Items.Add(Ligne2)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        End If
        SR2.Close()
 
 
        For a As Integer = 0 To ComboBox4.Items.Count - 1
            Dim mot = ComboBox4.Items(a)
            If ComboBox1.Items.Contains(mot) = False Then
                'For s = 0 To ComboBox2.Items.Count - 1
                'For w = 0 To ComboBox3.Items.Count - 1
                'DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Prochain entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'Next
                'Next
                System.IO.File.Delete(".\ateliers\" & mot & ".txt")
                Dim filename As String
                filename = ".\entretien.ini"
                ' lit le fichier complètement ligne par ligne
                Dim fileContents As List(Of String) = File.ReadAllLines(filename).ToList
                ' on enlève ce que l'on veut
                For i = fileContents.Count - 1 To 0 Step -1  'on part de la fin car on va  enlever des éléments de la liste et non les remplacer
                    If fileContents(i).Contains(mot) Then
                        'attention contains enlève la ligne si le critère est respecté alors il faut que cela soit le plus précis possible
                        'si  la ligne est toujours identique tu peux faire If fileContents(i) = "critère de sélection" Then
                        fileContents.RemoveAt(i)
                        'i -= 1
                    End If
                Next
                ' on réécrit le fichier
                'File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & ".\entretien.ini", RichTextBox1.Lines, Encoding.UTF7)
 
 
 
                File.WriteAllLines(filename, fileContents.ToArray, System.Text.Encoding.UTF7)
 
                ecrireINI("Prochain entretien", "essai", "essai")
                DeleteKey(".\entretien.ini", "Prochain entretien", "essai")
 
 
 
 
 
 
            End If
        Next
 
 
 
        'efface les lignes vides
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = "ateliers.txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        nvoFichier = "ateliers" & "_2.txt"
        Using sw As StreamWriter = New StreamWriter(nvoFichier, False, System.Text.Encoding.Default) ' False = crée et ouvre, True, ouvre en ajout
            Try
                Using sr6 As StreamReader = New StreamReader("ateliers.txt", System.Text.Encoding.Default)
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    ' of the file is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            'MsgBox("Votre fichier " & "ateliers.txt" & " contient des lignes vides, enlever les lignes vides")
                            'Exit Sub
                            sw.WriteLine(line)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        'Shell("ren D: \projetsvisualstudio\Reparations\Reparations\bin\Debug\ateliers_2.txt ateliers.txt")
        'Dim myProcess As New Process()
        'myProcess.StartInfo.FileName = "ren" 'l'application
        'myProcess.StartInfo.Arguments = ".\ateliers_2.txt ateliers.txt" 'les paramètres passés à l'application
        'myProcess.StartInfo.CreateNoWindow = True
        'myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        'myProcess.Start() 'lance le process
        'myProcess.WaitForExit() 'attend qu'il soit terminé avant d'aller plus loin
        'myProcess.Close() 'ferme le process
 
 
 
 
 
        File.Delete("ateliers.txt")
        My.Computer.FileSystem.RenameFile("ateliers_2.txt", "ateliers.txt")
        'ren "D:\projets visual studio\Reparations\Reparations\bin\Debug\"ateliers_2.txt ateliers.txt
        ComboBox4.Items.Clear()
        Dim SR4 As New StreamReader("ateliers.txt", System.Text.Encoding.Default)
        Do Until SR4.Peek = -1
            Dim Ligne As String
            Ligne = SR4.ReadLine()
            Me.ComboBox4.Items.Add(Ligne)
        Loop
        ComboBox4.Sorted = True
        If ComboBox4.Items.Count > 0 Then
            Me.ComboBox4.SelectedIndex = 0
        End If
        SR4.Close()
 
        ComboBox1.Items.Clear()
        Dim SR7 As New StreamReader("ateliers.txt", System.Text.Encoding.Default)
        Do Until SR7.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR7.ReadLine()
            Me.ComboBox1.Items.Add(Ligne2)
        Loop
        ComboBox1.Sorted = True
        If ComboBox1.Items.Count > 0 Then
            Me.ComboBox1.SelectedIndex = 0
        Else
            Me.ComboBox1.Text = ""
        End If
        SR7.Close()
 
 
 
 
 
 
 
    End Sub
 
    Private Sub Button8_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.LostFocus
        Dim SR1 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR1.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR1.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
        End If
        SR1.Close()
        If ComboBox1.Text = "" Then
 
            Exit Sub
        End If
 
        For a As Integer = 0 To ComboBox5.Items.Count - 1
            Dim mot = ComboBox5.Items(a)
            If ComboBox4.Items.Contains(mot) = False Then
                'For s = 0 To ComboBox2.Items.Count - 1
                'For w = 0 To ComboBox3.Items.Count - 1
                'DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Prochain entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & ";" & ComboBox2.Items(s) & ";" & ComboBox3.Items(w))
                'Next
                'Next
                System.IO.File.Delete(".\machines\" & mot & ".txt")
                Dim filename As String
                filename = ".\entretien.ini"
                ' lit le fichier complètement ligne par ligne
                Dim fileContents As List(Of String) = File.ReadAllLines(filename).ToList
                ' on enlève ce que l'on veut
                For i = fileContents.Count - 1 To 0 Step -1  'on part de la fin car on va  enlever des éléments de la liste et non les remplacer
                    If fileContents(i).Contains(mot) Then
                        'attention contains enlève la ligne si le critère est respecté alors il faut que cela soit le plus précis possible
                        'si  la ligne est toujours identique tu peux faire If fileContents(i) = "critère de sélection" Then
                        fileContents.RemoveAt(i)
                        'i -= 1
                    End If
                Next
                ' on réécrit le fichier
                'File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & ".\entretien.ini", RichTextBox1.Lines, Encoding.UTF7)
 
 
 
                File.WriteAllLines(filename, fileContents.ToArray, System.Text.Encoding.UTF7)
 
                ecrireINI("Prochain entretien", "essai", "essai")
                DeleteKey(".\entretien.ini", "Prochain entretien", "essai")
 
 
 
 
 
 
            End If
        Next
 
 
 
 
 
 
 
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = ".\ateliers\" & ComboBox1.Text & ".txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        'nvoFichier = ".\ateliers\" & ComboBox1.Text & "_2.txt"
        Using sw As StreamWriter = New StreamWriter(".\ateliers\" & ComboBox1.Text & "_2.txt", False, System.Text.Encoding.Default)
            Try
                Using sr6 As StreamReader = New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    'of the file Is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            sw.WriteLine(line)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        Dim nom As String
        nom = ComboBox1.Text
        My.Computer.FileSystem.DeleteFile(".\ateliers\" & ComboBox1.Text & ".txt")
        My.Computer.FileSystem.RenameFile(".\ateliers\" & ComboBox1.Text & "_2.txt", nom & ".txt")
 
        'Using sw As StreamWriter = New StreamWriter(".\ateliers\" & ComboBox1.Text & ".txt", False, System.Text.Encoding.Default)
        'End Using
 
        'Dim sr As New System.IO.StreamReader(".\ateliers\" & ComboBox1.Text & ".txt", System.Text.Encoding.Default))
        'Dim str1 As String = sr.ReadToEnd()
        'SR.Close()
        'str1 = str1.Replace(vbNewLine, String.Empty)
        'Dim sw As New System.IO.StreamWriter(".\ateliers\" & ComboBox1.Text & ".txt", False, System.Text.Encoding.Default)
        'sw.WriteLine(str1)
        'sw.Close()
 
 
 
 
 
 
 
 
 
 
 
 
 
        ComboBox2.Items.Clear()
        Dim SR3 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox2.Items.Add(Ligne2)
        Loop
        If ComboBox2.Items.Count > 0 Then
            Me.ComboBox2.SelectedIndex = 0
        Else
            ComboBox2.Text = ""
        End If
        For a As Integer = 0 To ComboBox5.Items.Count - 1
            Dim mot = ComboBox5.Items(a)
            If ComboBox2.Items.Contains(mot) = False Then
                System.IO.File.Delete(".\machines\" & mot & ".txt")
            End If
        Next
        'ComboBox2.Sorted = True
        'If ComboBox2.Items.Count > 0 Then
        'Me.ComboBox2.SelectedIndex = 0
        'End If
        SR3.Close()
 
 
        ComboBox5.Items.Clear()
        Dim SR4 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt")
        Do Until SR4.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR4.ReadLine()
            Me.ComboBox5.Items.Add(Ligne2)
        Loop
        ComboBox5.Sorted = True
        If ComboBox5.Items.Count > 0 Then
            Me.ComboBox5.SelectedIndex = 0
        Else
            ComboBox5.Text = ""
        End If
        SR4.Close()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Label4.Text = DateTime.Now.ToString("HH:mm:ss") 'Pour l'heure 1er label
        Label5.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date 2eme label
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        Dim res As Double
        Dim chemin As String = ".\ateliers\" & ComboBox1.Text & ".txt"
        res = FileLen(chemin)
        If res = 0 Then
            MsgBox("Vous devez entrer d'abord au moins une machine")
            Exit Sub
        End If
 
 
 
        Process.Start(".\machines\" & ComboBox2.Text & ".txt")
        ComboBox3.Items.Clear()
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        End If
    End Sub
 
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        End If
 
        ddde = lireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        MaskedTextBox1.Text = ddde
        pde = lireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        TextBox1.Text = pde
        'Dim filename As String
        'filename = ".\entretien.ini"
        'Dim ligne2 As String
 
        'ComboBox5.Items.Clear()
        'Dim sr3 As StreamReader = New StreamReader(filename )
        'While sr3.EndOfStream = False
        'ligne2 = sr3.ReadLine()
        'If ligne2 = "[Prochain entretien]" Then
        'For i = 1 To 3
        'ComboBox5.Items.Add(sr3.ReadLine())
        'Next
        'Exit While
        'End If
        'End While
        'If ComboBox5.Items.Count > 0 Then
        'Me.ComboBox5.SelectedIndex = 0
        'End If
        'ComboBox5.Sorted = True
 
        'largeur adaptée au texte
        'Dim length = 0
        'Dim maxlength = 0
        'Dim i2 As Integer = 0
        'Dim g As Graphics = ComboBox5.CreateGraphics
        'Dim stringsize As New SizeF
 
        'For i2 = 0 To ComboBox5.Items.Count - 1
        'ComboBox5.SelectedIndex = i2
        ' stringsize = g.MeasureString((ComboBox5.GetItemText(ComboBox5.Items(i2))), ComboBox5.Font)
        'length = stringsize.Width
        'If length > maxlength Then
        'maxlength = length
        'End If
        'Next i2
 
        'Me.ComboBox5.Width = maxlength
    End Sub
 
    Private Sub Button2_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.LostFocus
        Dim res As Double
        Dim chemin As String = ".\ateliers\" & ComboBox1.Text & ".txt"
        res = FileLen(chemin)
        If res = 0 Then
 
            Exit Sub
        End If
 
 
 
        Dim nomFichier As String
        Dim nvoFichier As String
        Dim lng As Integer
        Dim count As Integer
        count = 0
        nomFichier = ".\machines\" & ComboBox2.Text & ".txt"
        lng = nomFichier.Length
        nvoFichier = nomFichier.Substring(0, lng - 4)
        nvoFichier = ".\machines\" & ComboBox2.Text & "_2.txt"
        Using sw As StreamWriter = New StreamWriter(nvoFichier, False, System.Text.Encoding.Default)
            Try
                Using sr6 As StreamReader = New StreamReader(".\machines\" & ComboBox2.Text & ".txt", System.Text.Encoding.UTF7)
                    Dim line As String
                    ' Read and display the lines from the file until the end 
                    ' of the file is reached.
                    Do
                        line = sr6.ReadLine()
                        If line <> "" Then
                            sw.WriteLine(line)
                            count += 1
                        End If
                    Loop Until line Is Nothing
                    sr6.Close()
                End Using
            Catch ex1 As Exception
            End Try
            sw.Close()
        End Using
        '    End If
        'Next
        Dim nom As String
        nom = ComboBox2.Text
        My.Computer.FileSystem.DeleteFile(".\machines\" & ComboBox2.Text & ".txt")
        My.Computer.FileSystem.RenameFile(".\machines\" & ComboBox2.Text & "_2.txt", nom & ".txt")
        ComboBox3.Items.Clear()
        Dim SR3 As New StreamReader(".\machines\" & ComboBox2.Text & ".txt")
        Do Until SR3.Peek = -1
            Dim Ligne2 As String
            Ligne2 = SR3.ReadLine()
            Me.ComboBox3.Items.Add(Ligne2)
        Loop
        ComboBox3.Sorted = True
        If ComboBox3.Items.Count > 0 Then
            Me.ComboBox3.SelectedIndex = 0
        Else
            ComboBox3.Text = ""
        End If
        SR3.Close()
    End Sub
 
 
 
    Private Sub MaskedTextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text <> "  .  ." Then
            ecrireINI("Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, MaskedTextBox1.Text)
        End If
    End Sub
 
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
 
        If TextBox1.Text = "" Then
            TextBox1.Text = "0"
        End If
        If TextBox1.Text <> "0" Then
            ecrireINI("Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, TextBox1.Text)
        End If
        jours = TextBox1.Text
        If MaskedTextBox1.Text <> "  .  ." Then
            dateentretien = DateAdd("d", jours, MaskedTextBox1.Text)
        End If
        If TextBox1.Text <> "0" Then
            ecrireINI("Prochain entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text, dateentretien)
        End If
        If TextBox1.Text = "0" Or TextBox1.Text = "" Then
            DeleteKey(".\entretien.ini", "Periodicité d'entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
            DeleteKey(".\entretien.ini", "Prochain entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
            DeleteKey(".\entretien.ini", "Date du dernier entretien", ComboBox1.Text & ";" & ComboBox2.Text & ";" & ComboBox3.Text)
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        prochain_entretien.Show()
        prochain_entretien.ListView1.View = View.Details
        prochain_entretien.ListView1.Columns.Add("Prochain(s) entretien(s) à prévoir:", 1235, HorizontalAlignment.Left)
        prochain_entretien.ListView1.Items.Add("_________________________________________________________________________________________________________________")
        'prochain_entretien.ListView1.Columns.Add("___________________________________", 1235, .Left)
        'prochain_entretien.ListView1.Columns.Add("Notes", 100, HorizontalAlignment.Left)
        'prochain_entretien.ListView1.Columns.Add("Personne(s)", 300, HorizontalAlignment.Left)
        Dim ligne As String
        Dim filename As String
        filename = ".\entretien.ini"
        Dim ligne2 As String
        Dim sr3 As StreamReader = New StreamReader(filename, System.Text.Encoding.UTF7)
        While sr3.EndOfStream = False
            ligne2 = sr3.ReadLine()
            If ligne2 = "[Prochain entretien]" Then
                'For i = 1 To 1000
                ' While ligne2 <> "" 'si la ligne suivant ton bloc à récupérer est vide
                'While ligne2 <> "[Bloc suivant]" 's'il y a un autre bloc juste après
                While sr3.EndOfStream = False 'si c'est le dernier bloc et la fin du fichier
                    Dim MyLine As ListViewItem = New ListViewItem(New String() {sr3.ReadLine})
                    prochain_entretien.ListView1.Items.Add(MyLine)
                    'Next
                End While
                '    End While
                'End While
 
                Exit While
            End If
        End While
    End Sub
 
End Class

@Elthorn
Pas de problème avec l'UTF8, simplement chez moi il posait le problème des accentués exactement comme quand je n'impose pas l'Encoding. Par contre, Default fonctionnait.
Mais je crois que l'UTF nécessaire sera facile à placer quand le programme sera un peu corrigé et utilisant le même code partout : il suffira de faire un Recherche-Remplace de Default par UTF8, et de recommencer ensuite s'il le faut en remplaçant UTF8 par un autre, ... Au moins on aura la certitude que chaque accès en lecture et chaque accès en écriture s'effectue bien avec le même format que les autres.

**Phil Rob** · 28/10/2018, 11h31

En parcourant les discussions précédentes, je commence à comprendre sur quoi tu travailles : les fameux fichiers ini.
Alors, j'ai testé mon code sur un fichier auquel j'ai donné l'extension .ini et dans lequel j'ai copier-coller le texte de ton exemple :

[Date du dernier entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=23.10.2018
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=10.10.2018
Atelier Mr30;Fraiseuse 213 n°1;évaluation=12.12.2018
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=10.10.2017
[Periodicité d'entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=365
Atelier Mr30;Fraiseuse 213 n°1;évaluation=2
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=5
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=5
[Prochain entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=23.10.2019
Atelier Mr30;Fraiseuse 213 n°1;évaluation=14.12.2018
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=15.10.2018
Atelier Mr30;sdfsdfsdf;dsfsdfsdf=15.10.2017

Le code suivant ouvre le fichier en lecture et crée un nouveau fichier en écriture, et ensuite copie le premier vers le second, ligne par ligne, et en respectant les accentués :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
                Dim FichierALire As New StreamReader(TFichierEntree.Text, System.Text.Encoding.Default)
                Dim FichierAEcrire As New StreamWriter(TFichierSortie.Text, False, System.Text.Encoding.Default)
 
                While FichierALire.Peek > -1
                    FichierAEcrire.WriteLine(FichierALire.ReadLine())
                End While

Pour ce qui d'extraire les dates des lignes du fichier ini, mon code de ce matin est parfait, sauf pour les lignes où il n'y a pas de date. L'extraction des dates par le code DateLimite = Ligne.Substring(Ligne.Count - 10) doit être fait dans un Try-Catch.

Bon travail,

**wallace1** · 28/10/2018, 12h10

Pour gérer les caractères correctement on procède de cette manière :

---> iso-8859-1 Western European (ISO)
---> Windows-1252 Western European (Windows)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  Using sr As New StreamReader("D:\TheFile.txt", Encoding.GetEncoding("iso-8859-1"))
            While sr.Peek() <> -1
 
            End While
        End Using

ou bien ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  Using sr As New StreamReader("D:\TheFile.txt", Encoding.GetEncoding("Windows-1252"))
            While sr.Peek() <> -1
 
            End While
        End Using

A+

Caractères en accents pas juste

VB.NET

Discussions similaires

Partager

Partager