Manipulation des fichiers
rihabsati
Messages postés
1
Date d'inscription
mercredi 16 janvier 2008
Statut
Membre
Dernière intervention
28 janvier 2009
-
28 janv. 2009 à 15:30
Tyrell2 Messages postés 251 Date d'inscription samedi 19 novembre 2005 Statut Membre Dernière intervention 2 novembre 2010 - 28 janv. 2009 à 15:50
Tyrell2 Messages postés 251 Date d'inscription samedi 19 novembre 2005 Statut Membre Dernière intervention 2 novembre 2010 - 28 janv. 2009 à 15:50
A voir également:
- Manipulation des fichiers
- Vscode rechercher dans tous les fichiers ✓ - Forum VB.NET
- Vscode comparer 2 fichiers ✓ - Forum Visual Basic
- Comparer deux fichiers - Forum C
- Au secours ! Comment comparer deux fichiers textes - Forum Visual Basic
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
4 réponses
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
28 janv. 2009 à 15:38
28 janv. 2009 à 15:38
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.
<hr />
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.
<hr />
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
28 janv. 2009 à 15:40
28 janv. 2009 à 15:40
méthode SubString, et IndexOf de la classe String, en .NET ^^
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
28 janv. 2009 à 15:40
28 janv. 2009 à 15:40
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.
<hr />
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.
<hr />
Tyrell2
Messages postés
251
Date d'inscription
samedi 19 novembre 2005
Statut
Membre
Dernière intervention
2 novembre 2010
28 janv. 2009 à 15:50
28 janv. 2009 à 15:50
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
As
String = 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()
As
String = 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)
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
As
String = 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()
As
String = 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)