[VB.NET] Une lecture de fichier difficile...

Version imprimable

Il y a quelque chose que je ne comprends pas...

J'aimerais que cette fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub textrecup(ByVal nomfichier As String) Dim sr As System.IO.StreamReader = Nothing Dim sw As System.IO.StreamWriter = Nothing Dim line As String Dim var As String sr = New System.IO.StreamReader(nomfichier) line = sr.ReadLine() Do While (Not line Is Nothing) line = line + sr.ReadLine() Loop If Not sr Is Nothing Then sr.Close() If Not sw Is Nothing Then sw.Close() End Sub
me renvoie une variable ( disons MPrem de type string ), avec ce que contient le fichier en question... puis qu'il détruise le fichier après avoir récupéré son contenu...

Est-ce possible ?

aet, Ukyuu ^^

06/01/2005, 10h24
dev01

Salut !

ben ça fonctionne pas ???

Sinon pour supprimer le fichier faut regarder dans System.IO.File il doit y avoir une méthode du genre Delete .

Ben non...

Je viens de faire ceci :

Fonction appelante :

Code:

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
36
37
38
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As New Mail.MailMessage
        Dim utilisateur, m, password, serveur, var As String
        Dim tabvar() As String
        message.From = Request.ServerVariables("LOGON_USER")
        message.To = "user@fai.extention"
        message.Subject = "creation article"
        tabvar = Split(Request.ServerVariables("logon_user"), "\")
        If tabvar.Length > 0 Then
            var = tabvar(1)
        Else
            var = tabvar(0)
        End If
        Me.textrecup("c:\tempo" + var + ".html", m)
        m = m + "<br><br>" & _
          "<b>Article à créer</b><br><br>" & _
          "Nom du client : " & Nomclient.Text & "<Br><Br>" & _
          "Subshape : " & qtecmd.Text & "<Br><Br>" & _
          "Demande du : " + DateTime.Now.ToString()
 
        message.BodyFormat = Mail.MailFormat.Html
        message.Priority = Mail.MailPriority.High
        message.Body = m
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
        SmtpMail.SmtpServer = serveur
 
        Try
            SmtpMail.Send(message)
        Catch ex As Exception
            var = ex.Message
        End Try
    End Sub

et fonction appelée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub textrecup(ByVal nomfichier As String, ByVal m As String)
        Dim sr As System.IO.StreamReader = Nothing
        Dim sw As System.IO.StreamWriter = Nothing
        Dim line As String
        Dim var As String
        sr = New System.IO.StreamReader(nomfichier)
        line = sr.ReadLine()
        Do While (Not line Is Nothing)
            m = m + sr.ReadLine()
        Loop
        If Not sr Is Nothing Then sr.Close()
        If Not sw Is Nothing Then sw.Close()
    End Sub

ça n'a pas l'air de fonctionner ( entre mon message qui ne s'envoie pas et ce satané fichier qui ne me renvoie pas ce que je veux -_- )

06/01/2005, 11h10
nico-pyright(c)

Re: [aspx][vb.net] Une lecture de fichier difficile...
Citation:

Envoyé par Ukyuu

me renvoie une variable ( disons MPrem de type string ), avec ce que contient le fichier en question... puis qu'il détruise le fichier après avoir récupéré son contenu...

Est-ce possible ?

Salut, moi je ferais un truc du genre :
Code:

1 2 3 4 Dim fichier As New System.IO.StreamReader(nomFichier) Dim buffer As String = fichier.ReadToEnd() fichier.Close() System.IO.File.Delete(nomFichier)
06/01/2005, 12h15
Abalalojik

Faut que je teste le delete ^^; :)

Et bien plus de programmation pour au moins deux jours... :piou: Je ne peux plus faire de debug sans mettre mon UC à 100% avec la jauge rouge en permanence au dessus de 60. :evil:
Le souci : même en killant le processus mon ordi reste traumatisé. :bug:
06/01/2005, 14h09
nico-pyright(c)

quand je débugge bcp, j'ai aussi ce problème.
En quittant VS.Net, et en tuant le process ca va mieux
06/01/2005, 14h11
abelman

Jamais ce problème moi. VS.NET est gourmand mais quand même.
Vous avez VSNET 2002 ?
06/01/2005, 14h13
nico-pyright(c)

non, 2003 V.7.1.3088 :D

(j'ai lu vite, c'est vrai que c'est plutot la rame qui augmente plutot que la charge CPU)
06/01/2005, 14h25
Thomas Lebrun

il est buggé votre VS ou quoi 8O
06/01/2005, 14h25
Pete

Mais ton paramètre m, ne faut il pas qu'il soit déclaré ByRef ? ou bien "out" (je ne sais pas l'équivalent VB de "out") ?

Code:

Private Sub textrecup(ByVal nomfichier As String, ByRef m As String)
06/01/2005, 14h27
abelman

Citation:

Envoyé par Pete

Mais ton paramètre m, ne faut il pas qu'il soit déclaré ByRef ? ou bien "out" (je ne sais pas l'équivalent VB de "out") ?

Code:

Private Sub textrecup(ByVal nomfichier As String, ByRef m As String)

Non ByVal suffit car String est une classe et m est une réference à un objet String
06/01/2005, 14h37
Pete
Citation:

Non ByVal suffit car String est une classe et m est une réference à un objet String

Après reflexion je suis d'accord avec toi, et pourtant comme je suis un peu St Thomas sur les bord j'ai fait le test suivant (en C#)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 private void Page_Load(object sender, System.EventArgs e) { string m=""; Test(m); } private void Test(ref string m) { m="azeaze"; }
Et là m n'est pas modifié... Explications plz? (bien sur ça fonction avec le keyword "ref")
:? :?:
06/01/2005, 14h45
Abalalojik

Abelman :

http://www.developpez.net/forums/vie...560941#1560941

Je crois que c'est mon PC et non VS 2003 enterprise developper qui bugge...
06/01/2005, 14h53
abelman

Citation:

Envoyé par Ukyuu

Abdelman :

http://www.developpez.net/forums/vie...560941#1560941

Je crois que c'est mon PC et non VS 2003 enterprise developper qui bugge...

OK .. C'est abelman (pas de d) :wink:

Pete, on a raison tous les deux :D (c'est bien comme ça hein ?? :D)

L'affection m ="machinchose" modifie la reference. Donc si l'argument est passé par valeur, il ne change pas.

Par contre si string avait une méthode toto qui modifiait la chaine, en faisant m.toto() dans ta fonction Test, m aurait été modifié tout en étant passé par valeur. Manque de bol, les objets String sont immuables : On leur affecte une nouvelle valeur à chaque fois. On ne peut les modifier

En fait tu as plus raison que moi finalement

Ukyuu tu devrais donc mettre ByRef pour m comme te l'a suggeré pete
06/01/2005, 15h27
Pete

Ah oui merci abelman, je comprends mieux mainteant.
C'est bô le .NET, mais à la fin, on ne sait plus ce qu'on fait !
Faudrait rajouter quelque chose la dessus dans la partie système de la FAQ...
06/01/2005, 15h47
Abalalojik

:piou: Rendez-moi mon ide que je puisses tester les solutions proposées...

Ah oui, c'est vrai, le souci c'est le PC.

/me prend un marteau...

Petit petit petit ... viens mon petit PC, je ne te ferais pas de mal....

/me demande un nouveau PC au service info.

Bon il va falloir que j'attende le 700MH 512 MO ram pour pouvoir tester la solution... ou encore une fois que je bosse chez moi.

aet, ukyuu.

Voilà dans ces procédures la varible m est passée correctement ( je crois ) :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub textrecup(ByVal nomfichier As String, ByRef m As String)
        Dim sr As System.IO.StreamReader = Nothing
        Dim sw As System.IO.StreamWriter = Nothing
        Dim line As String
        Dim var As String
        sr = New System.IO.StreamReader(nomfichier)
        line = sr.ReadLine()
        m = line
        If Not sr Is Nothing Then sr.Close()
        If Not sw Is Nothing Then sw.Close()
    End Sub

Mais ne contient pas ce que je veux au final ici :

Code:

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
36
37
38
Private Sub fin_env_dem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fin_env_dem.Click
        Dim message As New Mail.MailMessage
        Dim utilisateur, m, password, serveur, var As String
        Dim tabvar() As String
        message.From = Request.ServerVariables("LOGON_USER")
        message.To = "abalalojik@hotmail.com"
        message.Subject = "creation article"
        tabvar = Split(Request.ServerVariables("logon_user"), "\")
        If tabvar.Length > 0 Then
            var = tabvar(1)
        Else
            var = tabvar(0)
        End If
        Me.textrecup("c:\tempo" + var + ".html", m)
        m = m + "<br><br>" & _
          "<b>Article à créer</b><br><br>" & _
          "Nom du client : " & Nomclient.Text & "<Br><Br>" & _
          "Subshape : " & qtecmd.Text & "<Br><Br>" & _
          "Demande du : " + DateTime.Now.ToString()
 
        message.BodyFormat = Mail.MailFormat.Html
        message.Priority = Mail.MailPriority.High
        message.Body = m
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
        SmtpMail.SmtpServer = serveur
 
        Try
            SmtpMail.Send(message)
        Catch ex As Exception
            var = ex.Message
        End Try
    End Sub

07/01/2005, 10h53
Maniak

Citation:

Envoyé par Pete

Et là m n'est pas modifié... Explications plz? (bien sur ça fonction avec le keyword "ref")

C'est déjà pas censé compiler. Une fonction qui reçoit un paramètre 'ref' doit être appelée en indiquant 'ref' aussi. Y a un truc bizarre dans ton code là :)

Ca serait pas un peu plus simple de bêtement faire
Code:

1 2 3 4 5 Private Function textrecup(ByVal nomfichier as String) as String ... End Function
et ensuite
Code:

1 2 3 4 5 Dim m as String ... m = textrecup("machin.html")

J'ai tout mis dans la même fonction, mais ca ne marche toujours pas... Line ne prends pas ce qui est dans le fichier que je veux lire.

Code:

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
36
37
38
39
40
41
42
 Private Sub fin_env_dem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fin_env_dem.Click
        Dim message As New Mail.MailMessage
        Dim utilisateur, m, password, serveur, var, line As String
        Dim tabvar() As String
        Dim sr As System.IO.StreamReader = Nothing
 
        m = line
        message.From = Request.ServerVariables("LOGON_USER")
        message.To = "jennifer.moulard@saint-gobain.com"
        message.Subject = "creation article"
        tabvar = Split(Request.ServerVariables("logon_user"), "\")
        If tabvar.Length > 0 Then
            var = tabvar(1)
        Else
            var = tabvar(0)
        End If
        sr = New System.IO.StreamReader("c:\tempo" + var + ".html", m)
        line = sr.ReadLine()
        m = "<br><br>" & _
          "<b>Article à créer</b><br><br>" & _
          "Nom du client : " & Nomclient.Text & "<Br><Br>" & _
          "Subshape : " & qtecmd.Text & "<Br><Br>" & _
          "Demande du : " + DateTime.Now.ToString()
 
        message.BodyFormat = Mail.MailFormat.Html
        message.Priority = Mail.MailPriority.High
        message.Body = m
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
        SmtpMail.SmtpServer = serveur
 
        Try
            SmtpMail.Send(message)
        Catch ex As Exception
            var = ex.Message
        End Try
    End Sub

Code:

1
2
        sr = New System.IO.StreamReader("c:\tempo" + var + ".html", m)
        line = sr.ReadLine()

Que vaut line à ce stade ?

07/01/2005, 12h52
abelman

Citation:

Envoyé par Maniak

Citation:

Envoyé par Pete

Et là m n'est pas modifié... Explications plz? (bien sur ça fonction avec le keyword "ref")

C'est déjà pas censé compiler. Une fonction qui reçoit un paramètre 'ref' doit être appelée en indiquant 'ref' aussi. Y a un truc bizarre dans ton code là :)

Je pense qu'il s'est trompé dans le copier coller :wink:

Voilà la fonction finale, la récupération du contenu du fichier fonctionne, mais j'ai une erreur dans le try, apparement un composant externe lève une exeption.

Merci encore à tous.

Code:

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
36
37
38
39
40
41
42
Private Sub fin_env_dem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fin_env_dem.Click
        Dim message As New Mail.MailMessage
        Dim utilisateur, m, password, serveur, var, line, mess As String
        Dim tabvar() As String
        Dim sr As System.IO.StreamReader = Nothing
 
 
        message.From = Request.ServerVariables("LOGON_USER")
        message.To = "abalalojik@hotmail.com"
        message.Subject = "creation article"
        tabvar = Split(Request.ServerVariables("logon_user"), "\")
        If tabvar.Length > 0 Then
            var = tabvar(1)
        Else
            var = tabvar(0)
        End If
        sr = New System.IO.StreamReader("c:\tempo" + var + ".html")
        line = sr.ReadLine()
        m = "<br><br>" & _
          "<b>Article à créer</b><br><br>" & _
          "Nom du client : " & Nomclient.Text & "<Br><Br>" & _
          "Subshape : " & qtecmd.Text & "<Br><Br>" & _
          "Demande du : " + DateTime.Now.ToString()
        mess = line + m
        message.BodyFormat = Mail.MailFormat.Html
        message.Priority = Mail.MailPriority.High
        message.Body = mess
        utilisateur = ConfigurationSettings.AppSettings("SmtpUtilisateur")
        password = ConfigurationSettings.AppSettings("SmtpPassword")
        serveur = ConfigurationSettings.AppSettings("SmtpServeur")
 
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", utilisateur)
        message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
        SmtpMail.SmtpServer = serveur
 
        Try
            SmtpMail.Send(message)
        Catch ex As Exception
            var = ex.Message
        End Try
    End Sub

07/01/2005, 13h32
abelman

Et avec

Code:

message.From = "adressemailexepediteur@toto.com"

?
07/01/2005, 13h41
Abalalojik

Et en fait...
Si je met le server exchange que j'ai chez moi ( mangapartout.(...).com) je n'ai pas d'exeption et le mail s'envoie.

Dès que je mets les codes qu'on m'a donné pour que mon appli envoie des mails... hop ça ne fonctionne plus.

Donc ...
07/01/2005, 13h43
Maniak

Va voir dans l'observateur d'événements. Y aura peut-être plus d'infos sur le problème de 'composant externe' :)
07/01/2005, 13h48
abelman

Soit le serveur qu'on te donne n'est pas valide
Soit l'expediteur n'est pas reconnu par ce serveur.

Essaye d'envoyer un mail avec ces informations par un autre client SMTP si possible pour voir
07/01/2005, 13h52
Abalalojik

Citation:

Envoyé par Ukyuu

Et en fait...
Si je met le server exchange que j'ai chez moi ( mangapartout.(...).com) je n'ai pas d'exeption et le mail s'envoie.

C'est bien un autre SMTP que celui de ma boîte puisque c'est celui qui est chez moi. ( non je n'ai pas appelé ma boite "chez moi" lol ).

Ou alors tu veux que j'envoies avec encore un autre SMTP ?
07/01/2005, 14h05
abelman

Ce que je voulais dire c'est que tu essayes d'envoyer avec Outlook (par exemple) un mail en utilisant les informations SMTP qui ne fonctionnent pas avec ton programme

[edit] Tiens post est résolu ?[/edit]
07/01/2005, 14h27
Abalalojik

Bah, je suis disciplinée :

Les règles stipulent une question par message et la réponse à la première question que j'ai posée est donnée et résolue.

Ce qui ne fonctionne pas là est ( je pense ) dû aux infos que j'ai. On m'a stipulé 3 noms de servers et des identifiants mais aucun ne fonctionne. Quand a Outlook, je ne peux pas rajouter quoi que ce soit dedans, donc je doutes que je puisses voir ce que tu me demandes, sauf de chez moi, mais chez moi, ça marche.

Donc résolu oui pour la question qui porte sur les fichier, et non pour le reste.