probleme de lecture

Version imprimable

probleme de lecture

bonjour, j'ai un petit problème avec mon projet , il m'affiche une erreur : 'Readchars' n'est pas un membre de 'System.IO.Stream'

voici mon code de lecture:
Code:

1 2 3 4 5 6 Dim stream As Stream = New FileStream((folder & "//param.sfo"), FileMode.Open, FileAccess.Read) With { _ .Position = &H968 _ } Me.folder = New String(stream.Readchars(9)) stream.Close() stream.Dispose()
pouvez-vous m'aider a résoudre ce petit problème .merci

comment je peux écrire avec ce code:

Code:

BinaryReader.ReadChars

avec mes code:

Code:

1
2
3
4
5
6
7
8
9
Public Sub sfo(ByVal _folder As String)
        Me.folder = _folder
        Dim stream As Stream = New FileStream((_folder & "//PARAM.SFO"), FileMode.Open, FileAccess.Read) With { _
            .Position = &H968 _
        }
        Me.region = New String(stream.ReadChars(9))
        stream.Close()
        stream.Dispose()
    End Sub

10/11/2013, 20h48
clementmarcotte

Bonjour,

1) Tu poses une question en Caiguisé dans un forum VB.net

2) Prends le temps d'ouvrir ton aide et de lire la rubrique suivante:

Stream, classe

3) Dis moi où se trouve la méthode ReadChars dans cette page-là.

4) Dis moi pourquoi, je me suis retrouvé à chercher dans l'aide à ta place.

Bonjour,

Peut-être comme ceci.

Code:

1
2
3
4
        Using flux As Stream = New FileStream(("D:\data\fic.txt"), FileMode.Open, FileAccess.Read) 'With {.Position = &H968}
            flux.Seek(9, 0)
            MessageBox.Show(flux.ReadByte())
        End Using

1 pièce(s) jointe(s)

bonjour, j'ai essayer votre code. ça fonctionne pas .

voici modifier:
Code:

1 2 3 4 5 6 7 8 Public Sub SFO(ByVal _folder As String) Me.folder = _folder Using flux As Stream = New FileStream((_folder & " PARAM.SFO "), FileMode.Open, FileAccess.Read) With { _ .Position = &H968 _ } flux.Seek(9, 0) End Using End Sub
pour lire

Code:

Me.run(String.Concat(New String() {"-g " & Me.folder & " -d """ & str & """ SYS-DATA "}))

voici en image mon projet:

10/11/2013, 23h40
rv26t

Et

Code:

flux.ReadByte()

est situé où dans votre code ?

Code:

1
2
3
4
5
6
7
8
9
Public Sub SFO(ByVal _folder As String)
        Me.folder = _folder
        Using flux As Stream = New FileStream((_folder & " PARAM.SFO "), FileMode.Open, FileAccess.Read) With { _
            .Position = &H968 _
        }
            flux.Seek(9, 0)
            flux.ReadByte()
        End Using
    End Sub

je l'ai ajouter rien a faire.

11/11/2013, 00h18
rv26t
ReadByte renvoi une valeur (int32). Il faut donc affecter cette valeur à une variable (dans votre cas Me.region, attention à la conversion) pour en faire quelques chose, sinon cela ne fait rien.

Exemple
Code:

1 2 flux.Seek(9, 0) ' Positionne dans le fichier Label1.Text = System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()}) ' lit un octet et l'affecte à un label
A adapter à votre besoin bien sur.

http://img822.imageshack.us/img822/6296/ypu0.jpg
bonjour, le but de mon programme c'est quand je déplace mon fichier dans mon programme , il lie le nom du fichier BLES00074 automatique dans le fichier SFO, qui a 9 chiffre.

voici une partie:

Code:

1
2
3
4
5
6
7
8
9
Private Sub ListBox1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        Dim data As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
        Dim str As String
        For Each str In data
            Me.ListBox1.Items.Add(("Loaded Savegame : " & str))
            Me.run(String.Concat(New String() {"-g BLES00074 -d " & str & " SYS-DATA "}))
            Me.ListBox1.Items.Add(("Decrypted : " & str))
        Next
    End Sub

mon programme fonctionne en tapant manuel nom du dossier.

Me.Run = pfdtool.exe

je voudrais remplacer ... {"-g " & Me.region & " -d " & str & " SYS-DATA "}))

avec ce code:

Code:

1
2
3
4
5
6
7
8
Private Sub sfo()
       Dim stream As Stream = New FileStream((" param.sfo "), FileMode.Open, FileAccess.Read) With { _
            .Position = &H968 _
        }
        Me.region = New String(stream.Readchars(9))
        stream.Close()
        stream.Dispose()
    End Sub

avez-vous une solution a mon problème? merci

1 pièce(s) jointe(s)

Bon, afin que tu constates que la lecture fonctionne, voici un exemple.

Le code du bouton qui provoque la lecture de 9 caractères à partir de la position 2408 dans le fichier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub btnLitCar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLitCar.Click Using flux As Stream = New FileStream(("D:\data\param.sfo"), FileMode.Open, FileAccess.Read) With {.Position = &H968} Try txtPos.Text = Integer.Parse(&H968) ' pour voir la position à partir de laquelle la lecture par caractère sera faite dans le fichier flux.Seek(flux.Position, SeekOrigin.Begin) ' positionne le curseur de lecture à la position désiré en ayant comme référence le début du dit fichier. For i = 0 To 8 ' parcour les 9 caractères à lire Label1.Text &= System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()}) ' lit le caractère (int32) -> byte -> caractère -> affiche dans label Next ' Affichage correct dans le label. 'Me.Region = ??? ' ceci est une zone graphique , on n'affecte pas directement une chaîne caractère à un graphique. roundButton.Text = Label1.Text ' pour faire jolie dans le bouton ovale. Catch ex As Exception MessageBox.Show(ex.Message) End Try End Using End Sub
Un fichier de test.

Citation:

01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
11234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
21234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
31234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
41234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
51234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
61234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
71234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
81234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
91234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
a1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
z1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
e1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
r1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
t1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
y1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
u1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
i1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
o1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
p1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
q1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
s1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
d1234567_90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
f1234567A90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
g123456_BLES00074_89012345678901234567890123456789012345678901234567890123456789012345678901234567
h1234567C90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
j1234567D90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
k1234567E90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
l1234567F90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
m1234567G90123456789012345678901234567890123456789012345678901234567890123456789012345678901234567

En 2408ème position (Retour ligne pris en compte - 2 car.) commence la chaîne de caractère BLES00074

Résultat d'affichage écran : voir le fichier joint.

Me.Region est une zone graphique, on ne peut donc pas affecter une chaîne de caractère telle quelle dedans.
Exemple avec la region du bouton — le texte est affecté de façon classique dans la propriété Text — il n'y a aucun lien entre la région graphique et le texte.
Un exemple tiré de MSDN qui m'a permit de faire un jolie bouton ovale (enfin jolie, il faut le dire vite)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ' This method will change the square button to a circular button by creating a new circle-shaped GraphicsPath object and setting it to the RoundButton objects region. Private Sub roundButton_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles roundButton.Paint Dim buttonPath As New System.Drawing.Drawing2D.GraphicsPath ' Set a new rectangle to the same size as the button's ClientRectangle property. Dim newRectangle As Rectangle = roundButton.ClientRectangle ' Decrease the size of the rectangle. newRectangle.Inflate(-10, -10) ' Draw the button's border. e.Graphics.DrawEllipse(System.Drawing.Pens.Black, newRectangle) 'Increase the size of the rectangle to include the border. newRectangle.Inflate(1, 1) ' Create a circle within the new rectangle. buttonPath.AddEllipse(newRectangle) e.Graphics.DrawPath(Pens.Black, buttonPath) ' Set the button's Region property to the newly created circle region. roundButton.Region = New System.Drawing.Region(buttonPath) End Sub

2 pièce(s) jointe(s)

bonjour, merci de votre aide mais voila j'ai essayer votre code . il fonctionne pas chez moi.
votre code modifier :

Code:

1
2
3
4
5
6
7
8
Private Sub SFO()
        Using flux As Stream = New FileStream((" PARAM.SFO "), FileMode.Open, FileAccess.Read) With {.Position = &H968}
            flux.Seek(flux.Position, SeekOrigin.Begin)
            For i = 0 To 8
                TextBox1.Text &= System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()})
            Next
        End Using
    End Sub

mon code lecture décryptage:

Code:

1
2
3
4
5
6
Dim data As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
        Dim str As String
        For Each str In data
            Me.ListBox1.Items.Add(("Sauvegarder chargé  : " & str))
            Me.run(String.Concat(New String() {"-g " & TextBox1.Text & " -d " & str & " SYS-DATA "}))
            Me.ListBox1.Items.Add(("Decrypted : " & str))

voici en image le dossier a cote mon projet:

13/11/2013, 20h59
rv26t

Et qu'est-ce qui ne fonctionne pas ?
Quel est le message d'erreur ?
Que contient TextBox1.Text en fin de boucle ?
Pourquoi avez-vous des espaces autour du nom du fichier à lire ? (... New FileStream((" PARAM.SFO "), FileMode.Open, FileAccess.Read) ...)

Suivez en pas à pas pour voir ce qui se passe.

bonjour, il m' affiche pas de message erreur .
dans mon TextBox1.Text en fin de boucle, il doit afficher le nom du dossier BLES00074.
j'ai suivie mon projet pas a pas , il lie pas le code SFO.
Code:

1 2 3 4 5 6 7 8 9 Private Sub SFO() Using flux As Stream = New FileStream((" PARAM.SFO "), FileMode.Open, FileAccess.Read) With {.Position = &H968} flux.Seek(flux.Position, SeekOrigin.Begin) For i = 0 To 8 TextBox1.Text &= System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()}) Next End Using End Sub End Class
lecture

Code:

{"-g " & Me.SFO & " -d " & str & " SYS-DATA "}))

si je laisse TextBox1.Text , il y a pas de message d'erreur mais si je remplace par Me.SFO , il m'affiche un message d'erreur : Cette expression ne produit pas de valeur
merci

Citation:

Envoyé par hacker59

bonjour, il m' affiche pas de message erreur .
dans mon TextBox1.Text en fin de boucle, il doit afficher le nom du dossier BLES00074.

Et il affiche BLES00074 ou pas ?

Citation:

Envoyé par hacker59

j'ai suivie mon projet pas a pas , il lie pas le code SFO.

Normal si l'on appelle pas la procédure
Citation:
Envoyé par hacker59
Code:

1 2 3 4 5 6 7 8 9 Private Sub SFO() Using flux As Stream = New FileStream((" PARAM.SFO "), FileMode.Open, FileAccess.Read) With {.Position = &H968} flux.Seek(flux.Position, SeekOrigin.Begin) For i = 0 To 8 TextBox1.Text &= System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()}) Next End Using End Sub End Class
lecture

Code:

{"-g " & Me.SFO & " -d " & str & " SYS-DATA "}))

si je laisse TextBox1.Text , il y a pas de message d'erreur mais si je remplace par Me.SFO , il m'affiche un message d'erreur : Cette expression ne produit pas de valeur
merci
Logique ce n'est pas une fonction.

Il serait souhaitable de réviser las bases. Voici un excellent cours sur VB.NET.

2 solutions
Soit vous appelez la procédure SFO avant la procédure run.

Soit vous écivez une fonction SFO qui renverra une chaine de caractères.
Ex:
Code:

1 2 3 4 5 6 7 8 9 10 Private Function SFO() As String Dim ChaineSFO As String = Nothing Using flux As Stream = New FileStream(("D:\data\param.sfo"), FileMode.Open, FileAccess.Read) With {.Position = &H968} flux.Seek(flux.Position, SeekOrigin.Begin) ' positionne le curseur de lecture à la position désiré en ayant comme référence le début du dit fichier. For i = 0 To 8 ChaineSFO &= System.Text.Encoding.UTF8.GetString(New Byte() {flux.ReadByte()}) ' lit le caractère (int32) -> byte -> caractère -> le place dans la variable Next End Using Return ChaineSFO ' renvoi la chaine compléte End Function
Appel

Code:

Me.run("-g " & SFO() & " -d " & str & " SYS-DATA ")

1 pièce(s) jointe(s)

bonsoir, j'ai trouver la solution plus simple pour afficher le fichier BLES00074(voir image).
voici mon code:
Code:

1 2 3 4 5 6 7 Dim data As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String()) Dim str As String For Each str In data Me.ListBox1.Items.Add(("Sauvegarder chargé : " & str)) TextBox1.Text = System.IO.Path.GetFileName(str).Substring(0, 9) Me.run(String.Concat(New String() {"-g " & TextBox1.Text & " -d " & str & " SYS-DATA "})) Me.ListBox1.Items.Add(("Decrypted : " & str))
une dernière question: je voudrais remplacer le fichier SYS-DATA par PARAM.PFD {.Position = &H358} = 8 chiffre => SYS-DATA

pouvez-vous m'aider a résoudre ce petit problème. merci

16/11/2013, 00h43
wallace1

lol...tout ça pour ça.....

Chapeau rv26t, moi j'avais absolument rien compris depuis le début....???!! :calim2::calim2: