| |
|
131
|
Programación / Programación Visual Basic / Re: Buscar en varios archivos de texto vb 6.0
|
en: 31 Mayo 2010, 20:42 pm
|
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  |
|
|
|
|
133
|
Programación / Programación Visual Basic / Re: [Ayuda] Editar archivo de texto
|
en: 30 Mayo 2010, 03:24 am
|
No se si entendí bien ?
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
|
|
|
|
|
137
|
Programación / Programación Visual Basic / Re: una subcadena dentro de una cadena
|
en: 24 Mayo 2010, 16:31 pm
|
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.
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
|
|
|
|
|
138
|
Programación / Programación Visual Basic / Re: decir si un caracter es vocal, consonante, número o signo de puntuación
|
en: 24 Mayo 2010, 16:22 pm
|
Hola PsYkE1, otra opcion seria
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
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
|
|
|
|
|
139
|
Programación / Programación Visual Basic / Re: [ayuda] Pulsar mouse
|
en: 8 Mayo 2010, 03:13 am
|
Hola, Fijate si te sirve FORM
Option Explicit
Private Sub Form_Load()
Me.AutoRedraw = True
StartHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
StopHook
End Sub
MODULO:
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
|
|
|
|
|
|
| |
|
Mostrar Mensajes
