RÉCUPÉRER TOUS LES CHAMPS D'UN FICHIER TEXTE OU CSV

<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>

<SCRIPT language="VB" runat="server"> 
 Dim Temp As New System.Text.StringBuilder 
 'Chemin d'accès de la page à insérer 
 dim filename , filepath as string
' mon fichier a traiter
 filename="mon_fichier.csv"  
' mon repertoire sur le serveur
 filepath="mon_repertoire\"
 dim ch_file As String = HttpContext.Current.Server.MapPath(HttpContext.Current.Request.ApplicationPath) & filepath & filename 
 dim oFileread As System.IO.StreamReader
 ' lecture du fichier
 oFileread = New System.IO.StreamReader(ch_file)
 ' on le split dans une table
 dim trad as array 
 trad = Split(oFileread.ReadToEnd, vbCrLf, -1, 1)
 ' fermeture du fichier
 oFileread.Close()
 ' collecte les données ligne par ligne pour les mettre dans un tableau dynamique
 dim i,z as integer, tbl_data(ubound(trad),2) as string, trad1 As string()
 for i = 0 to ubound(trad) - 1 
  trad1 = split(trad(i).ToString, ";")
  for z = 0 to 2 'spécifier ici le nombre de champ que vous souhaitez récupérer
   tbl_data(i,z) = trad1(z).ToString
  next
 next

 ' affiche vos données
 for i = 0 to ubound(trad) - 1 
  response.write ("nom : " & tbl_data(i,0) & "<br>prenom : " & tbl_data(i,1) & "<br>email : " & tbl_data(i,2) & "<br>")
 next
End If
</script>