Discussion :

[dodo28]

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

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

Avez vous un peu de temps à m'accorder pour trouver la solution si il y en a une?*
Merci

[marot_r]

Bonjour.

Sauf erreur de ma part :

Code :

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

LigneQgs = "<datasource>T:/NIVALIS/SIG/TEST_QGIS/n_planchasse28_test.shp|layerid=0|subset=""MATRICULE""='" & matricul & "'</datasource>"

devrait résoudre ton problème.

A+

[dodo28]

Merci beaucoup
c'est résolu