débutant: trouver une chaîne dans une ligne, en remplacer une autre

Marsh Posté le 27-09-2007 à 10:28:50

Bonjour à tous, je suis dans un IF qui checke les lignes d'un fichier et les insert dans une base SQL :

les lignes sont de ce type :

role1#login1#complete_name#info1#info2#date_crea#date_maj
role#login2#complete_name#info1#info2#date_crea#date_maj
role1#login3#complete_name#info1#info2#date_crea#date_maj
role2#login1#complete_name#info1#info2#date_crea#date_maj
role1#login4#complete_name#info1#info2#date_crea#date_maj
etc.....

je veux traiter les lignes de ce fichier en disant pour chaque ligne, si le role={ça ça ou ça} ou si role =*ca* alors efface date_maj
sinon si role ={ça ça ou ça} ou *ça* alors efface date_crea

ça donnerait :

role1#login1#complete_name#info1#info2#date_crea
role#login2#complete_name#info1#info2#date_crea#date_maj
role1#login3#complete_name#info1#info2#date_crea#date_maj
role2#login1#complete_name#info1#info2#date_maj
role1#login4#complete_name#info1#info2#date_crea#date_maj

Parce qu'en fait un login peut avoir plusieurs roles et qu'on ne veut pas afficher toutes les dates de maj ni toutes celles de creation du role

Voilà..je sais que c'est compliqué, merci d'avance !

---------------
[>_] Microsoft 'PoSH' addicted

Marsh Posté le 27-09-2007 à 10:28:50

Marsh Posté le 27-09-2007 à 11:07:14

Je ne vois pas ce qui te semble compliqué.
Il s'agit juste de faire des tests avec des If Then ou un Select Case ou toute structure adaptée et d'utiliser la fonction replace()

Marsh Posté le 27-09-2007 à 11:33:36

Pour un débutant en développement, ça l'est !

Merci pour ce début Tegu !

Marsh Posté le 27-09-2007 à 16:26:13

Bonjour,

Voici un bout de programme

Sub xx()
tmp = "role1#login1#complete_name#info1#info2#date_crea#date_maj "

tmp1 = Split(tmp, "#" )
Select Case Replace(tmp1(0), "role", "" )
Case "1"
MsgBox "Action 1"
Case "2"
MsgBox "Action 2"
End Select
End Sub

Marsh Posté le 27-09-2007 à 16:30:35

Merci à vous 2 !!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *