Bonjour,
pouvez vous m'aider sur ce problème?
je desire changer la ligne 467 d'un fichier texte. tout irai bien si il n'y avait pas de caractères spéciaux dans cette ligne.
Voici mon code et Je voudrais que 1002 dans LigneQgs soit remplacé par la variable : matricul
Avez vous un peu de temps à m'accorder pour trouver la solution si il y en a une?*
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 matricul = Te_MATRICULE 'recopie le fichier cartoterritoire.qgs en fichier cartotterritoire2.qgs en remplaçant la ligne 467 du fichier pour le bon matricule LigneQgs = "<datasource>T:/NIVALIS/SIG/TEST_QGIS/n_planchasse28_test.shp|layerid=0|subset="MATRICULE"='1002'</datasource>" MsgBox (LigneQgs) 'détruit le fichier Kill (Chemin & "carto_territoire2.qgs") Open Chemin & "carto_territoire.qgs" For Input As 1 Open Chemin & "carto_territoire2.qgs" For Output As 2 I = 0 While Not EOF(1) I = I + 1 Line Input #1, ligne If I = 467 Then Print #2, LigneQgs Else Print #2, ligne End If Wend Close #2 Close #1 On Error Resume Next Link = Chemin & "carto_territoire2.qgs" ShellExec Link, "open", vbNormalFocus
Merci
Partager