Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: ssccaann43 en 31 Mayo 2010, 22:21 PMTe puedo asegurar que no es C&P ssccaann43...
Me intrigo eso de que el mensaje esta en ingles...!
*PsYkE1*, no lo tomes a mal, pero detesto a los Copy&Paste...! Espero que esa funcion sea 100% tuya... Sino, tomate este momento para colocar su autor...!
Cita de: ssccaann43 en 31 Mayo 2010, 22:15 PM
Muy bueno *PsYkE1*, me gustó...!
Cita de: Elemental Code en 31 Mayo 2010, 22:19 PM
me costo entender como andaba asi que voy a explicarlo otra vez.
Si en la caja de texto escriboCódigo [Seleccionar]No entendi el codigo y por eso hago esto
y llamo a la funcion comoCódigo (vb) [Seleccionar]MsgBox Text_Between_Words(Text1.Text, "Codigo", "Esto")
me responde:Código [Seleccionar]y por eso hago
MsgBox Text_Between_Words(Text1.Text, "codigo", "esto")Cita de: Elemental Code en 31 Mayo 2010, 22:19 PMJajaja
Esta bueno pero si lo hiciste vos porque esta en ingles el mensaje de error :S...
Cita de: Elemental Code en 31 Mayo 2010, 22:19 PMHe posteado porque lo necesitaba para un proyecto que estoy haciendo, y pense que podia ser interesante...
Ademas. Para que sirve??
' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com) //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se //
' // respete la autoria y se me comuniquen esos cambios. //
' // *Agradecimientos a BlackZeroX & Cobein //
' // *Visita http://foro.rthacker.net //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Function Text_Between_Words(ByVal sTextToAnalyze As String, ByVal sStartWord As String, ByVal sEndWord As String) As String
Dim iPosition1 As Integer
Dim iPosition2 As Integer
Dim iStart As Integer
iPosition1 = InStr(sTextToAnalyze, sStartWord)
If iPosition1 <> 0 Then
iStart = iPosition1 + Len(sStartWord)
iPosition2 = InStr(iStart, sTextToAnalyze, sEndWord)
Else
Exit Function
End If
If iPosition2 <> 0 Then
Text_Between_Words = Mid$(sTextToAnalyze, iStart, iPosition2 - iStart)
End If
End Function
El contexto es el ámbito de referencia de un texto. ¿Qué entiendo por ámbito de referencia?.
Debug.Print Text_Between_Words(Text1.Text, "referencia", "entiendo")Citar
de un texto. ¿Qué
Debug.Print Text_Between_Words(Text1.Text, "referencia", "referencia")Citar
de un texto. ¿Qué entiendo por ámbito de
)...
Function Buscar_Palabra(sArchivo As String, sPalabra As String)
Dim Archivo As Integer
Dim Linea As String
Archivo = FreeFile
Open sArchivo For Input As Archivo
Do While Not EOF(Archivo)
Line Input #Archivo, Linea
If InStr(Linea, Word) <> 0 Then
MsgBox "Encontre la palabra""" & sPalabra & """ en el archivo " _
& sArchivo, vbInformation
End If
Loop
Close #Archivo
End Function
Private Sub Command2_Click()
Call Buscar_Palabra("c:\windows\1.txt", "hola")
End Sub
Cita de: *PsYkE1* en 30 Mayo 2010, 01:34 AMCreo que lo explique bastante claro...
Pero me da error me dice:CitarY me marca la linea:
El archivo ya está abiertoCitarmmmmmm
Open App.Path & "\" & linea & x & ".txt" For Output As #1
Porque?¿