Discussion :

[JulienTough]

Bonjour

ce sujet revient plusieurs fois et à chaque fois il y a une solution différente.
je l'es ai essayé mais j'avoue que je n'arrive à me servir d'aucune.
donc voici le problème :
je dispose d'un fichier modèle en txt dans lequel est écrit "nomtroncon"
j'aimerais remplacer cela par le nom réel déterminer par le tronçon qu'on a choisi et ensuite réenregistré le txt en .wor pour mapinfo.

merci

[Invité]

Bonjour

Peux-tu nous dire quels types de solutions as-tu essayé ?

Starec

[JulienTough]

Voici les codes que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function SetConfigFile()
Dim var As String
Dim value As String
Dim test_conf_file As String
test_conf_file = "C:\Données_Carto\Fiche.txt"
'la variable à changer
var = "nomsubdi"
'la valeur
value = "SUBDI DE"
sed "s/\var\/\\\value/g" $test_conf_file
End Function

sur celui là il y a un problème avec $test_con_file même quand je met directement Fiche.txt comme dans un autre exemple

Un deuxiè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
 
RemplaceTxt("C:\Données_Carto\Fiche.txt", "NomSubdi", "SUBDI DE")
...
Function RemplaceTxt(Fichier As String, TxtSource As String, TxtDestination As String)
Dim Ligne As String
Dim Varfichier As String
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Ligne = Replace(Ligne, TxtSource, TxtDestination)
varfic = varfic & Ligne & vbCrLf
Loop
Close #1
'ecriture du fichier
Open Fichier For Output As #1
Print #1, Varfichier
Close #1
End Function

ici c'est sur la ligne d'appel de la function qu'il y a une erreur

voilà les principaux, en fait c'est soubvent des exmples généraux ou qui visiblement ne sont pas fait pour access et donc j'ai du mal à adapter le rédaction.

merci

[micniv]

Utilise la fonction Replace + F1

salut

[LedZeppII]

Bonjour,

ton problème se situe au niveau des Entrées/Sorties fichier.
Voila un exemple de code qui lit un fichier en entrée et crée un fichier de sortie.
Si le fichier en entrée est du type NomDeFichier.ext, le fichier de sortie sera NomDeFichier2.ext

Code vb :

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
Sub ReplaceInFile(strFile As String, strRplQuoi As String, strRplPar As String)
Dim strTmp As String, strFileSortie As String, lgPosPoint As Long
Dim iFin As Integer, iFout As Integer
Dim strLine As String
 
' Création nom du fichier de sortie
strTmp = StrReverse(strFile)
lgPosPoint = InStr(strTmp, ".")
If lgPosPoint > 0 Then
   strTmp = Replace(strTmp, ".", ".2", , 1)
   strFileSortie = StrReverse(strTmp)
Else
   strFileSortie = strFile & "2"
End If
 
' Ouverture fichier en entrée (Lecture)
iFin = FreeFile()
Open strFile For Input As iFin
 
' Ouverture fichier de sortie (Ecriture)
iFout = FreeFile()
Open strFileSortie For Output As iFout
 
' Copie ligne à ligne avec substitution
Do While Not EOF(iFin)
   Line Input #iFin, strLine
   Print #iFout, Replace(strLine, strRplQuoi, strRplPar, , , vbTextCompare)
Loop
 
Close #iFout
Close #iFin
 
End Sub

Exemple d'utilisation :

Code vb :

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

ReplaceInFile "C:\Données_Carto\Fiche.txt", "nomsubdi", "SUBDI DE"

A+

[JulienTough]

Merci beaucoup

ça marche super bien
@+