Mensajes

jej..holas

  Explicitame lo de ''un parser, a lo xml o algo asi!''

  y si no se optiene el mismo resultado,.. no me cirbe.

yo te digo, usa el parser.. usa el que te paso xkiz.
parser es una herramienta que entiende un texto o lo que sea, segun lo que uno quiera sacar...
en este caso un parser xml. xml porque es mas o mismo que html, pero bueno.

si vos queres q te devuelva lo mismo, imaginatelas. No es dificil!!!!!

Código (vb) [Seleccionar] Expandir


Dim strRet As String
strRet = TextInBetwinE("<font color=""#DD6600"">blablabla</font>", "<font ", "</font>")

If Left(strRet, 1) = ">" Then
strRet = Right(strRet, Len(strRet) -1)
Else
strRet = Right(strRet, Len(strRet) - InStr(strRet, ">"))
End If



asi lo sacas. pero la proxima fijate vos eso.. que no es nada dificil

saludos

Bien coco.


Pensaste que la etiqueta podría ser <font color="#DD6600">blablabla</font>.

me parece que tu método no funcionaria ahi.

para eso necesitas un parser, a lo xml o algo asi!

para hacer que funcione con ese ejemplo, modifica y pone asi:

Código (vb) [Seleccionar] Expandir

TextInBetwinE(".... ", "<font ", "</font>")
y te quedaria

color="#DD6600">blablabla

saludos

si no es como dice seba123neo, ponele los bordes en flat (al text), y mandale corchetes con labels atras

interesante, ideal para volar al carajo el BitBlt con bucles y mandarle esto

saludos

holas aka les dejo este pequeño code. que lo empece haciendo para una pagina en otro idioma y se me ocurrió traducirlo. Lo que hace es extraer el texto que se encuentre entre '<font>' y '</font>.

En un modulo:

Código (vb) [Seleccionar] Expandir



Public Sub ExtractText(ByVal strData As String, ByRef strArrayOut() As String)

Dim strText() As String: ReDim strText(0) As String
Dim strBuf As String
Dim bol As Boolean: bol = False

strBuf = strData

Do While Not bol

If InStr(LCase(strBuf), "<font") > 0 Then
   
  strBuf = Mid(strBuf, InStr(LCase(strBuf), "<font"))
   
  If InStr(LCase(strBuf), ">") > 0 Then
   
   Dim inta As Integer: inta = InStr(LCase(strBuf), ">")
   
   If InStr(LCase(strBuf), "</font") > 0 Then
   
    Dim intb As Integer
     
    intb = InStr(LCase(strBuf), "</font") - inta
    PlusArray strText, Mid(strBuf, inta + 1, intb - 1)
     
    strBuf = Mid(strBuf, inta)
   
   Else
   
    bol = True
   
   End If
   
  Else
   
   bol = True
   
  End If
   
Else
 
  bol = True
   
End If

Loop

ReDim strArrayOut(UBound(strText)) As String

strArrayOut = strText

End Sub

Public Sub PlusArray(ByRef strArray() As String, ByVal strPlus As String)

Dim lngP As Long

lngP = UBound(strArray) + 1

ReDim Preserve strArray(lngP)

strArray(lngP) = strPlus

End Sub





Y para probarlo en un form:

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()

Dim x As Integer
Dim strText As String
Dim strArrayText() As String

strText = "<font > el electrodo magico </font><font > mucha variedad en electrodos </font> <font > electrodo automatico </font>  <font > un pedo </font>"

ExtractText strText, strArrayText

Me.Print "Prueba:"
Me.Print ""
Me.Print ""

For x = 0 To UBound(strArrayText)
 
  Me.Print "    " & strarraytext(x)

Next

End Sub



Bue no se, se puede usar si quieres hacer una búsqueda en una web.

54¬U|)()5

estas haciendo cagadas, mira cuantas lineas al dope.

asi vas a hacer errores (creeria que no) y/o tardar mucho

usa la funcion TEXTINBETWINE (de cobein, pero le pegue una modificacion yo)

Código (vb) [Seleccionar] Expandir

Public Function TextInBetwinE(ByVal sData As String, ByVal sStart As String, ByVal sEnd As String) As String
    If InStr(sData, sStart) > 0 Then
        sData = Mid(sData, InStr(sData, sStart) + Len(sStart))
        TextInBetwinE = Mid(sData, 1, InStr(sData, sEnd) - 1)
    End If
End Function

tene cuidado, si no existe el tag de cerrado, va a tirar error
la funcion trabaja asi:
encuentra la primer coincidencia, y hace que llegue hasta la primer coincidencia final
llama a la funcion asi

Código (vb) [Seleccionar] Expandir

TextInBetwinE("<font > el electrodo magico </font><font > mucha variedad en electrodos </font> <font > electrodo automatico </font>  <font > un pedo </font>", "<font >", "</font>")
eso te devuelve el primer tag..
para sacar el segundo tag, hace un replace a la cadena original, sacando el tag actual y hace asi hasta q no haya mas tags

saludos

El asunto es que merodeando un poco por el Panel de Control y tal... me he encontrado con una opción que hace que rote la pantalla [90, 180 o 270 grados] adaptando además también el ratón al volteo y quería implementar esa opción al apartado Fun/Miscellaneos de mi ratoncito perez...

La cuestión es que mirando por ahí encontre la API ChangeDisplaySettingsEx que tiene como parámetro un tipo de datos (DEVMODE) en el cual se almacenan las características de la pantalla: la resolución, opciones de color,.. y entre ellas está dmOrientation que es la que se supone que almacena la orientación o ángulo de la pantalla...

Pues resulta que el API que yo he encontrado no tenía declaradas las constantes que usa dmOrientation y además le faltan algunas constantes más.... el API en concreto es http://allapi.mentalis.org/apilist/D30C6FE933807D158AFF771D2F780906.html.
Además he encontrado otros ejemplos que se centraban más en eso de rotar el ángulo de la pantalla y he visto que el tipo de datos DEVMODE tenía además más características, tenía aparte del dmOrientation un dmDisplayOrientation (que luego he leído que era el que se necesita para la pantalla y que el otro era para la impresión....). Bueno total que intento tras intento no he conseguido darle la vuelta a la pantalla y he decidido postear....

Agradecería infinitamente que postearan la API ChangeDisplaySettingsEx completa porque si es que existe

no es del panel nvidia esa opcion?

va, yo siempre la vi ahi!

saludos

vaya forma de ayudar a quien intenta aprender ....... 

es como dice ░▒▓BlackZeroҖ▓▒░ !. en fin, yo te mande un ejemplo para ayudarte.. porque no lo usas?!

pero yo tengo la respuesta.. salen oscuras porque inicializas el dispositivo en cada captura!!!! no le das tiempo a que entre en balance de blanocos automaticos. en fin, para dejar de hacer threads con la misma pregunta, inicializa el dispositivo y despues sacale cada frame cuando quieras, pero inicializala 1 sola vez, antes del pedido

saludos

Quiero el Catctus Keylogger  ....

el perfect es una mierdi con gmail aparte no me funca y el ardmax como se llame tiene un troyano infernal xD....

obligado a esperar la obra maestra 

Saludos

creo que no daba para revivr un tema viejo, es mas, de hace un año casi!!!!

descargandola con algun control u objeto ?.. esa siempre funciona.. sino con csockmaster.. esa no falla

saludos

muy bueno coco, el unico detalle que vi es que sin compilar no sale ningun texto, y en el IDE sin manifest pasa lo mismo.. pero bueno yo se que no lo vas a arreglar! xD

como adivinaste xD!

en fin, eso del manifest no tiene salida, excepto que le cargues el manifest vos.. yo le copie el manifest en la carpeta del vb y con eso anda de 10!
PD: en el compilado TAMBIEN hay que poner el manifest! (ya esta en el res)

saludos