Manipulation des fichiers

Bonjour à tous ;

Je suis débutante en programmation, J'utilise comme outil le VB .NET 

J'aimerais extraire à partir d'un fichier .dat quelques enregistrements  et les classer dans un fichier texte

Le fichier d'entrée (.dat) a la forme suivante  (tous les enregistrements sont séparés par des  «, » ) :

"883","ALGIERS CITIBANK","6110002","DZD","11/02/2008","11/02/2008","MR LE RECEVEUR DES IMPORTS DGE","136.065.391,92","134.315.548,16","151.657.350,93","148955","CHECK PAID","11/02/2008","-637.958,00","DZ1594408307001G","153.750.269,06","Non","

.

Une idée :

Je ne sais pas si je dois parcourir le fichier caractère par caractère pour chercher les virgules  et comment  je puisse mettre toutes les chaines de caractères  dans un tableau pour pouvoir les filtrer après selon le besoin (l'ordre dans le tableau)

Merci à celui qui pourra m'apporter le renseignement  (un petit boue de code ou même une idée).

Bonjour,

instr()

' String to search in.Dim SearchString As String = "XXpXXpXXPXXP"' Search for "P".Dim SearchChar As String = "P"Dim TestPos As Integer ' A textual comparison starting at position 4. Returns 6. TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)  ' A binary comparison starting at position 1. Returns 9. TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)  ' If Option Compare is not set, or set to Binary, return 9.' If Option Compare is set to Text, returns 3. TestPos = InStr(SearchString, SearchChar)  ' Returns 0. TestPos = InStr(1, SearchString, "W")  

Extrait du msdn...

Après tu n'as qu'a faire du traitement de chaine de caractère (left(), right(), mid(),len())
Bon courage

S.L.B.

---

méthode SubString, et IndexOf de la classe String, en .NET ^^

Re,
Désolée de la mise en forme :
' String to search in.
Dim SearchString As String = "XXpXXpXXPXXP"
' Search for "P".
Dim SearchChar As String = "P"
Dim TestPos As Integer
' A textual comparison starting at position 4. Returns 6.
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text) 
' A binary comparison starting at position 1. Returns 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary) 
' If Option Compare is not set, or set to Binary, return 9.
' If Option Compare is set to Text, returns 3.
TestPos = InStr(SearchString, SearchChar) 
' Returns 0.
TestPos = InStr(1, SearchString, "W") 

S.L.B.

---

bonjour,
je n'ai jamais travaillé sur les fichiers .DAT mais voici ce que je fais avec les fichiers textes pour repondre à ton idée
d'abord il faut lire le fichier avec un streamreader
exemple :

Dim

StRead AsNew StreamReader("c:\test.txt", System.Text.Encoding.Default)

Dim text AsString = StRead.ReadToEnd()

StRead.Close()

ensuite tu peux le découper ("spliter") le fichier à chaque virgule dans un tableau de la façon suivante :

Dim TabChaine() AsString = Split(text, ",")

et il ne te reste plus qu'a ecrire (streamwriter ) un nouveau fichier text dans lequel tu ecris les lignes recupérés dans tabchaine qui t'interessent.
exemple : ligne 1 du fichier source (celle avant la 1ere virgule) correspond à tabchaine (0), etc...

_____________
 (débutant inside)