[Tasos]

Καλησπέρα Γιώργο και καλωσόρισες στο φόρουμ!

Το καλύτερο θα ήταν να δημοσίευες τον προβληματικό κώδικα για να δούμε κι εμείς το πρόβλημα.

Σου δίνω τρεις παραδειγματικούς κώδικες παρακάτω που ίσως σε βοηθήσουν.

'''VB - VBA
Sub checkSerial()
    If SerialExists("G-123456") ***n
        MsgBox "Serial found!"
    End If
End Sub

Function SerialExists(StrCode As Str**g) As Boolean
    Dim fso As Object, oStream As Object, strText As Str**g
    Set fso = CreateObject("Script**g.FileSystemObject")
    Set oStream = fso.OpenTextFile("C:\test.txt", 1)
    strText = oStream.ReadAll
    If **Str(1, strText, StrCode) > 0 ***n
        SerialExists = ****
    End If
    oStream.Close
End Function


'''VB.Net
'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H***les Button1.Click
'        Dim fileReader As Str**g
'        fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")
'        If fileReader.Conta**s("G_123456") ***n
'            MsgBox ("Serial found!")
'        End If
'    End Sub



'''// C#
'// private void Button1_Click(System.Object sender, System.EventArgs e)
'// {
'//    str**g fileReader = null;
'//    fileReader = My.Computer.FileSystem.ReadAllText("C:\\test.txt");
'//    if (fileReader.Conta**s("G_123456")) {
'//        **teraction.MsgBox("Serial found!");
'//    }
'// }

Αν χρειαστείς κάτι γράψε μας με περισσότερες λεπτομέρειες.

Καλή συνέχεια!
Φιλικά

Τάσος