split ligne special

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:

---

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 ""

---

Salut,

Voilà une fonction qui fait ce que tu demandes :

Code:

---

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 :oops: mais j'ai fais ca vite fais ;)

super merci a toi c'est vraiment sympa de ta part

Regarde plutôt cet outil : http://filehelpers.sourceforge.net/
C'est une solution beaucoup plus robuste ;)