split ligne special

**jfrag** · 02/09/2008, 15h43

Bonjour,

voila je veux spliter une ligne avec comme espacement des tabulations mais le probleme est que l'outil que j'utilise pourl'export mets des " dans le fichiers texte sur certaine info comment avoir un split intelligent qui me permettrait d'évité de spliter deux fois la meme ligne (un prenant en compte les ", l'autre ne les prenant pas en compte) ?

voici a quoi ressemble une ligne:

Code :

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

2	2	"GIANINETTO"	"JEANNE"	"102 ROUTE DE GENEVE"	""	"69140"	"RILLIEUX"	"04 78 88 55 25"	"17/04/00 00:00:00"	"13/04/06"	100	0	""	""	""	""	""	0.00	0.00	0.00	0.00	0	"4110002"	""	""	"S 12-30 MARDI"	"102 ROUTE DE GENEVE"	""	"69140"	"RILLIEUX"	"04 78 88 55 25"	""	""	"S 12-30 MARDI"	""	"dcd le 130406"	0.00	0.00	0.00	0.00	0.00	0.00	0.00	0.00	0.00	"02051916"	"31/12/50"	0	""	""	1	"9"	0	2	""	""	""	""	""	""	""	""	"25/08/06 16:16:00"	""	""	""	""	""	""	""	0	"1"	"MAYOT"	"31/12/50"	0	0	0	0	""	""	"01"	""	0	""	0	0	1	"1"	"12"	0	"216050101500176"	"MSPI"	""	"DT"	"01"	0	"05"	0	""	""	""	""	0	0	"RILLIE"	0	""	""	""	0	""	"30/10/03"	"30/04/06"	""	""	0	0	""	""	""	0	0	0.00	0	""

**Te-Deum** · 02/09/2008, 16h16

Salut,

Voilà une fonction qui fait ce que tu demandes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Function SplitLine(ByVal Line As String) As String()
        Dim tmp As String()
        Dim idx As Integer
 
        tmp = Line.Split(Constants.vbTab)
 
        For idx = 0 To tmp.Length - 1
            If tmp(idx).StartsWith("""") AndAlso tmp(idx).EndsWith("""") Then
                tmp(idx) = tmp(idx).Substring(1, tmp(idx).Length - 2)
            End If
        Next
 
        Return tmp
    End Function

Tu lui passe une ligne avec des valeurs séparé par une tabulation et elle s'occupe d'enlever les " de début et de fin de chaque valeurs. Elle te retourne un tableau de string.

Celà ne respecte pas tout à fait les standard de code

mais j'ai fais ca vite fais