Discussion :

[meloo]

Bonjour,
Je connais un problème de récupération de fichier en VB.net

Je souhaite lire un fichier qui est sur l'ordinateur qui lance la page. En fait j'aimerais juste afficher ce qu'il y a dans ce fichier.

J'ai beaucoup de mal à trouver des exemples en ajax pour vb.net....

Pourriez-vous m'aider ?

Merci d'avance,
Meloo

[AcidLines]

Bonjour,

Je n'ai pas compris le sens de cette phrase :

Je souhaite lire un fichier qui est sur l'ordinateur qui lance la page.

Quel type de fichier veux tu afficher ?

[meloo]

Un fichier texte (un .ini), je souhaiterais juste afficher ce qu'il contient.

Merci AcidLines

[AcidLines]

Tu souhaite l'afficher de quelle manière ?
L'ouvrir et l'afficher, ou le mettre dans un controle style Richtextbox ou autre ?

[meloo]

Tu souhaite l'afficher de quelle manière ?
L'ouvrir et l'afficher, ou le mettre dans un controle style Richtextbox ou autre ?

Ah euh..... J'aimerais l'ouvrir et l'afficher dans la page et non pas dans un controle. Je voudrais que le texte fasse partie intégrante de la page.

En fait mon besoin est le suivant :
J'ai un fichier ini qui contient plusieurs informations (nom, adresse, telephone....). Il est disponible sur tous les PC, et on ne peut pas le modifier.

Je veux récupérer le nom qui est dans ce fichier pour ensuite le mettre en argument dans un lien

Code :

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

Response.Write("<br/><a href='http://adresse.fr?codeMag=" & nom & "'>Mon lien</a>")

Je sais le faire en VB.net lorsque le fichier ini est sur le serveur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
<%        
	Dim add_fichier As String = "c:\fichier.ini"
 
	If System.IO.File.Exists(add_fichier) Then
		' Le fichier existe
		Response.Write("ok")
 
		Dim retail As StreamReader = New IO.StreamReader(add_fichier)
		Dim ligne As String
		Dim resultat As Array
		Dim nom  As String
		Dim i As Integer
 
		Do
			' Lecture de chaque ligne du fichier 
			ligne = retail.ReadLine()
 
			' Si la ligne contient Etablissement, alors récupérons le numéro après
			If Instr(1,ligne, "Etablissement               =") <> 0 Then
				' Découpage suivant Etablissement
				resultat = Split(ligne, "Etablissement               =")
				' On recupère le code magasin
				nom  = resultat(1)
			End If
 
		Loop Until ligne Is Nothing
		retail.Close()
		Response.Write("<br/><a href='http://adresse.fr?codeMag=" & nom & "'>Mon lien</a>")
		Else
			' Le fichier n'existe pas
			Response.Write("Problème de connexion au CDM")
		End If
 
 
%>

Du coup, je ne sais pas comment faire pour récupérer ce fichier mais sur les postes....

Je ne sais pas si ma réponse est plus claire ?
Merci bien

[AcidLines]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Imports System.IO
 
Public Class Form1
 
Private Sub B_ouvrirDansRTBX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_ouvrirDansRTBX.Click
  'Pour afficher le contenu dans un controle (ici Richtextbox)
  Dim strReader As New StreamReader("monFichier.ini") 'Emplacement de ton fichier. ici il est dans le même répertoire que mon exe.
  Dim ligne As String
  ligne = strReader.ReadLine 'Pour chacune des lignes du fichier, on l'ajoute au RTBX. Cela aurait pu aussi être un autre controle.
 
While Not ligne = String.Empty
monRichTxBox.AppendText(ligne)
ligne = strReader.ReadLine
End While
 
'on oubli pas de fermer le reader
strReader.Close()
End Sub
 
Private Sub B_Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Ouvrir.Click
'Pour ouvrir le fichier et l'afrficher.
   Dim ouvrirFichier As New Process
   Process.Start("c:\windows\system32\notepad.exe", "monFichier.ini") 'OUvrir le bloc note avec en paramètre l'emplacement du fichier à ouvrir.
End Sub

En espérant avoir pu t'aider.

[meloo]

Merci AcidLines, je teste et je te tiens au courant.

C'est très gentil en tout cas.