Discussion :

[Windaube]

Bonjour,

J'ai un fichier texte qui se comporte de la sorte:

Y:\1 ADP File\Archiv
RW S-1-5-21-1708537768-651377827-682003330-1175
RW S-1-5-21-4049260106-1541354479-2465529134-1767
RW BUILTIN\Administrators
RW VIFOR1\GRFACT
RW VIFOR1\GRFACT
RW VIFOR1\Alloga Users
R Everyone
R VIFOR1\Mani
RW VIFOR1\Mariotti
RW VIFOR1\Vuignier
Y:\1 ADP File ASW\01.2007
RW S-1-5-21-2210198011-1735986513-761363924-2522
RW VIFOR1\GRFACT
RW VIFOR1\Alloga Users
RW GALEXIS1\U0ABM
RW ALLOGA1\ualbubohlm
RW ALLOGA1\ualbudevev
RW ALLOGA1\ualbuledep
RW VIFOR1\Mariotti
RW GALEXIS1\U0OPR
RW GALEXIS1\U0GRE
R VIFOR1\roggo
RW ALLOGA1\ualbuschnc
RW VIFOR1\Vuignier
RW GALEXIS1\u0bwa
RW ALLOGA1\ualbuwalkd
RW ALLOGA1\ualbuzahrc
R VIFOR1\zenner

Et je voudrais pouvoir lire chaque ligne du fichier (ça c'est bon je sais faire) et les écrire dans un fichier excel. Mais le problème est la suivant. J'amerais que quand la ligne commence par Y:\ , ça me l'écrive à un endroit spéciale et si y a pas ça devant, ça me l'écrive ailleur... Je sais juste pas comment faire pour lui faire contrôler que la ligne commence ou pas par Y:\

Quelqu'un aurait-il une idée?

En vb .NET bien sûr

merci d'avance

[boubounne]

Si chaque ligne est transformé en String, dans ce cas il suffit de vérifer le premier caractere :

Code :

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

1
2
3
4
5
 
 
Dim test As String
test = "valeur de la chaine"
TextBox1.Text = test.Chars(0)

ainsi tu regarde si ce caractere est Y, et alors tu fait ton traitement

[Windaube]

J'ai un peu de la peine à ajouter à mon code... (je débute)

Comment tu l'aurais ajouter toi sur ce code?

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
  Sub lectureFichier(ByVal fichier As String)
 
        Try
            Dim monStreamReader As New StreamReader(fichier) 'Stream pour la lecture
            Dim ligne As String ' Variable contenant le texte de la ligne
 
           do
                ligne = monStreamReader.ReadLine
                MsgBox(ligne) 
                ' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
           Loop Until ligne Is Nothing            monStreamReader.Close()
 
        Catch ex As Exception
            MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration du logiciel." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : " & fichier, MsgBoxStyle.Critical, "Errueur lors e l'ouverture du fichier conf...")
        End Try
 
    End Sub

[boubounne]

au niveau de traitmement a effectuer sur la ligne, dans ta boucle

Code :

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

1
2
3
4
 
 
test = ligne.charrs(0)
msgbox ("voici la premiere lettre de la phrase : " & test)

ensuite tu fait ton traitement

Code :

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

1
2
3
4
5
6
 
if test = "Y" then
   'traitement au cas ou le caractere est Y
else
   'traitement au cas ou le caractere n'est pas Y
end if

[Windaube]

Bizzard c'est pourtant exactement se que j'ai mis... je dois avoir un autre problème je regarde ça

[Windaube]

Arf Le programme semble pas vouloir enregistrer les modification... c'est comme s'il avait garder le code d'avant.... je règle ça et je te redis si ça marche. Merci pour ton aide

[boubounne]

Ben ecoute avec un test rapide moi ca marche bien, essaye, par contre fait voir ce que retourne la msgbox qui contient ligne ..