Mensajes

[porque yo se hacer que busque en 1 archivo de texto con la funcion getvar.]

Hola!!

Y el problema es que no se como hacerlo porque yo se hacer que busque en 1 archivo de texto con la funcion getvar.


Pero cuando hay que buscar en todos los archivos de texto de una carpeta se me complica, alguna ayudita?

Desde ya gracias!

Saludos

Hola PsYkE1, como ya sabe buscar en un archivo ... le estoy explicando  lo que le falta , o sea enumerar todos los archivos txt de una carpeta. para que los verifique con la funcion getvar (a la que el se refiere) dentro del while

Saludos

Hola, con Dir seriá así

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

Me.AutoRedraw = True

Dim TeEquisTes As String
TeEquisTes = Dir("C:\Windows\")

While TeEquisTes <> ""
  If InStr(1, LCase$(TeEquisTes), ".txt") > 0 Then Me.Print TeEquisTes
  TeEquisTes = Dir
Wend

End Sub




No se si entendí bien ?

Código [Seleccionar] Expandir



Private Sub Form_Load()
   
  Open App.Path & "\lista.txt" For Output As #1
    Print #1, "L1 siguiente"
    Print #1, "L2"
    Print #1, "L3 siguiente"
    Print #1, "L4"
    Print #1, "L5"
    Print #1, "L6 siguiente"
  Close #1

  Dim linea   As String
  Dim x       As Integer
   
  Open App.Path & "\lista.txt" For Input As #1
    While Not EOF(1)
      Line Input #1, linea
      If InStr(linea, "siguiente") <> 0 Then
          Open App.Path & "\" & linea & x & ".txt" For Output As #2
              Print #2, "Hola"
          Close #2
          x = x + 1
       End If
    Wend
  Close #1

End Sub




No conocía esas Apis, buen aporte.

Hola PsYkE1, otra opcion seria

me dirigia a PsYkE1, ya que se habló de un tema parecido en otro hilo del foro de VB6

La proxima te pedimos permiso ...

Creo que lo que pregunta minette no es la posicion de la primera vez que aparece la subcadena sino la cantidad de veces que esta se repite dentro de la cadena.

Código [Seleccionar] Expandir



Option Explicit

Function Contar(cadena As String, subcadena As String) As Long
  Dim s() As String: s = Split(cadena, subcadena): Contar = UBound(s)
End Function

Private Sub Form_Load()
  MsgBox Contar("estrella", "e")
End Sub



Hola PsYkE1, otra opcion seria

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_DblClick()
  Me.Cls
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
  StartHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
  StopHook
End Sub




Código [Seleccionar] Expandir



Option Explicit

Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Dim hHook As Long

Public Sub StartHook()
    hHook = SetWindowsHookEx(13, AddressOf KeyProc, App.hInstance, 0)
End Sub

Public Sub StopHook()
    Call UnhookWindowsHookEx(hHook)
End Sub

Private Function KeyProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long

Form1.Caption = lParam
   
If wParam = 257 Then
    If lParam > 47 And lParam < 58 Then
        Form1.Print lParam & vbTab & Chr(lParam) & vbTab & "Numero"
    ElseIf lParam > 64 And lParam < 91 Then
        If lParam = 65 Or lParam = 69 Or lParam = 73 Or lParam = 79 Or lParam = 85 Then
            Form1.Print lParam & vbTab & Chr(lParam) & vbTab & "Letra Vocal"
        Else
            Form1.Print lParam & vbTab & Chr(lParam) & vbTab & "Letra Consonante"
        End If
    Else
        Form1.Print lParam & vbTab & Chr(lParam) & vbTab & "Ni letra ni numero"
    End If
End If

End Function



Hola, Fijate si te sirve


FORM

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
  Me.AutoRedraw = True
  StartHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
  StopHook
End Sub




MODULO:

Código [Seleccionar] Expandir



Option Explicit

Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long

Dim hHook As Long

Public Sub StartHook()
    hHook = SetWindowsHookEx(14, AddressOf MouseProc, App.hInstance, 0)
End Sub

Public Sub StopHook()
    Call UnhookWindowsHookEx(hHook)
End Sub

Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    'On Error Resume Next
    If wParam = 516 Then
      Form1.Print "CLICK BOTON DERECHO"
    ElseIf wParam = 517 Then Form1.Print "SOLTÓ BOTON DERECHO"
    ElseIf wParam = 513 Then Form1.Print "CLICK BOTON IZQUIERDO"
    ElseIf wParam = 514 Then Form1.Print "SOLTÓ BOTON IZQUIERDO"
    ElseIf wParam = 519 Then Form1.Print "CLICK BOTON MEDIO"
    ElseIf wParam = 520 Then Form1.Print "SOLTÓ BOTON MEDIO"
    End If
   
    Form1.Caption = wParam
End Function



Claro que en VB se puede hacer una aplicacion de consola:

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/crear_aplicaciones_de_consola_con_vb_intermedio-t230818.0.html;msg1099575
http://foro.elhacker.net/programacion_vb/crear_aplicaciones_de_consola_vb_avanzado_clase-t230908.0.html
Y no es necesario recurrir al spam

+1