Visual Basic - Ayuda con este código

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con este código

Publicado por José Leobardo starcraft.vaka@outlook.es (3 intervenciones) el 04/07/2016 23:54:45
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
43
44
45
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            ' List files in the folder.
            'ListFiles(FolderBrowserDialog1.SelectedPath)
        End If
 
    End Sub
 
    Private Sub ListFiles(ByVal folderPath As String)
        filesListBox.Items.Clear()
 
 
        Dim fileNames As String() =
            System.IO.Directory.GetFiles(folderPath,
                "*.*", System.IO.SearchOption.TopDirectoryOnly)
 
        For Each fileName As String In fileNames
            'filesListBox.Items.Add(fileName)
 
            Dim theString As String = "Serial number :"
            Dim path As String = fileName
            'Dim value As String = File.ReadAllText(fileName)
            Dim array() As String = File.ReadAllLines(path)
            filesListBox.Items.Add(array)
            Dim line As String
            For Each line In array
                ' We now have the line so can use it.
                Dim length As Integer = line.Length
                Dim TestPos As Integer
                If TestPos = InStr(1, length, theString, vbTextCompare) > 0 Then
                    Dim Result = Mid(length, TestPos, 20)
                    'Debug.Print(fileName)
                    MsgBox(Result)
                End If
            Next
 
        Next
    End Sub
 
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

Ayuda con este código

Publicado por xve (178 intervenciones) el 05/07/2016 09:03:58
Que problema tienes?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con este código

Publicado por José Leobardo (3 intervenciones) el 05/07/2016 18:04:34
me dice: .items is not a member of 'TextBox'

No se me ocurre nada pera solucionarlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Ayuda con este código

Publicado por Andres Leonardo (702 intervenciones) el 05/07/2016 19:12:47
El tema es que le has asignado a un textbox el nombre de un filesListBox por eso te da el error.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con este código

Publicado por Alfredo (12 intervenciones) el 05/07/2016 18:24:08
Me imagino que este codigo lo copiaste de alguna pagina de internet, mejor dinos que es lo que intentas hacer, pero recuerda que ACA NO SE HACEN TAREAS, si tienes una duda, dinos cual es tu duda en especifico.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con este código

Publicado por José Leobardo (3 intervenciones) el 06/07/2016 00:28:59
Debe buscar una carpeta y buscar en sus archivos una cadena y que de cierta cantidad de caracteres despues de esa cadena...
Y pues tengo problema al buscar la cadena, no lo hace.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con este código

Publicado por jcmg (518 intervenciones) el 10/07/2016 20:12:31
esta linea
' We now have the line so can use it.

Dim length As Integer = line.Length 'entero

Dim TestPos As Integer 'entero

If TestPos = InStr(1, length, theString, vbTextCompare) > 0 Then
si el entero que busco es parecido al texto buscado....
quizas este sea tu problema buscas un entero en vez de una cadena
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar