Récupérer tous les champs d'un fichier texte ou csv

Commenter

Contenu du snippet

Il permet de récupérer toutes les données enregistrées dans un fichier texte ou csv et de les charger dans un tableau dynamique à X niveau pour pouvoir ensuite les retraivailler.

Source / Exemple : 


<%@ 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>

Conclusion :


C'est ma première contribution, j'espère qu'elle pourra servir à d'autre et désolé si elle fait doublon.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.