Discussion :

[hacker59]

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 :

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

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

[hacker59]

comment je peux écrire avec ce code:

Code :

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

BinaryReader.ReadChars

avec mes code:

Code :

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

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

[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.

[rv26t]

Bonjour,

Peut-être comme ceci.

Code :

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

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

[hacker59]

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

voici modifier:

Code :

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

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 :

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

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

voici en image mon projet:

[rv26t]

Et

Code :

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

flux.ReadByte()

est situé où dans votre code ?

[hacker59]

Code :

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

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.

[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 :

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

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.

[hacker59]

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 :

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

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 :

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

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

[rv26t]

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 :

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
    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.

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 :

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
    ' 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

[hacker59]

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

Code :

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

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 :

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

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:

[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.

[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.
j'ai suivie mon projet pas a pas , il lie pas le code SFO.

Code :

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

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 :

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

{"-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

[rv26t]

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 ?

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

Normal si l'on appelle pas la procédure

Code :

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

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 :

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

{"-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 :

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

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 :

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

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

[hacker59]

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

Code :

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

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

[wallace1]

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

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