Discussion :

[c1malabar]

Bonjour,

Je suis actuellement entrain de réaliser un script qui permet de créer un fichier au format VFC (format du répertoire des téléphones Snom m9).

Ce que je cherche à faire c'est de voir si le numéro présent dans le fichier csv pour un contact donné est déjà présent dans le fichier VFC entre la ligne "FN: prenom nom" et la ligne "END:VCARD", mais je ne sais pas comment faire.

Je précise que "prenom" et "nom" sont des variables dans mon script.

Merci d'avance

[l_autodidacte]

Pourrait-on avoir l'esquisse du fichier :
Quelques lignes où figurent "FN: prénoms et nom" et "END: VCARD" ?

[c1malabar]

entre ces deux lignes il y a les lignes correspondantes aux numéros de téléphone du contact sous la forme "TEL;TYPE=WORK,VOICE:0389102030".

Je précise que le TYPE peut être soit CELL, soit WORK. Comme je l'ai dit précédemment, je cherche à voir si le numéro dans le fichier csv du contact "prenom nom" est déjà présent entre ces deux lignes et, s'il y a déjà un numéro du même type (CELL si numéro commençant par 06, WORK pour le reste) on modifie le numéro en ne modifiant que la partie de la ligne correspondante (ce que je ne sais pas faire non plus car la commande replace ne fait apparemment rien, à moins qu'il y ait quelque chose que j'ai mal fait).

[l_autodidacte]

Pour être plus clair, peux-tu faire un copier/coller d'une partie du fichier csv ?
Pour la syntaxe de la fonction Replace :

Code :

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

Replace(expression, find, replacewith[, start[, count[, compare]]])

avec:
expression : Expression de chaîne contenant une sous-chaîne à remplacer.
find : Sous-chaîne recherchée.
replacewith : Sous-chaîne de remplacement.
start : Facultatif. Position dans l'argument expression où la recherche de sous-chaîne doit commencer. Si elle est omise, la position 1 est prise par défaut. Elle doit être utilisée en conjonction avec count.
count : Facultatif. Nombre de remplacements de sous-chaîne à effectuer. Si cette valeur est omise, la valeur par défaut -1, qui signifie tous les remplacements possibles, est employée. Elle doit être utilisée en conjonction avec start.
compare : Facultatif. Valeur numérique indiquant le type de comparaison à utiliser lors de l'évaluation des sous-chaînes. Reportez-vous à la section Paramètres. Si elle est omise, la valeur par défaut est 0, comparaison binaire.
Ceci se trouve dans l'aide VbScript et VB6.

[c1malabar]

Si le contact est présent ca effectue 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
      set work = new regexp
      work.pattern = numero
      set workpresent = work.execute(textvfc)
 
      set cell = new regexp
      cell.pattern = numero
      set cellpresent = cell.execute(textvfc)
 
      If workpresent.count <> 0 or cellpresent.count <> 0 Then
        present = 1
      else
        set cell = new regexp
        cell.pattern = "TEL;TYPE=CELL,VOICE:06{1}(\d){8}"
        set celpresent = cell.execute(textvfc)
        If celpresent.count <> 0 Then
          text = split(textvfc,":")
          If Instr(text(1),numero) > 0 Then
            ancien=text(1)
            remplace = 1
          End If
        End If 
      End If

Et si remplace =1, ca lance la fonction suivante:

Code :

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

1
2
3
4
5
6
7
8
Function replace_cell(ancien,numero)
  Set vfcfile = fso.OpenTextFile(vfc,1,true)
    do while vfcfile.AtEndOfStream=false
      textvfc = vfcfile.ReadLine
      call Replace(textvfc,ancien,numero)
    loop
  vfcfile.close
End Function

Le problème est que, même si le numéro est différent, le remplacement ne se fait pas ...

[l_autodidacte]

Le remplacement ne se fera jamais si tu n'appelles pas la fonction replace_cell après que la variable remplace soit égale à 1.