Mensajes

Bien coco.


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

me parece que tu método no funcionaria ahi.

holas

Gracias por la corrección.

  y cual es la etiqueta que me decís?


------------------------------------

oks gracias

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

holas

te sirve algo así?

Código [Seleccionar] Expandir

Dim strCadena As String: strCadena = "[         aqui.texto.centrado.a.remplazar         ]"
Dim strRep As String: strRep = "holasss-locos"
Dim strR As String, strL As String
Dim strOut As String

strR = Right(strCadena, 10)
strL = Left(strCadena, 10)
strOut = strL & strRep & strR

Debug.Print strCadena
Debug.Print strOut

mas o menos

pero que la variable el valor enviado a la función es un brillo y la función tiene que devolver el color que tiene este brillo.

es en forma de porcentaje por eso se le pasaría una total y un  valor.


Seria como la inversa de la función CalcGreyScale

perdón seba pero no puedo poner imagen.

lo que necesito es tener una forma de conseguir un color especifico por su brillo.
Entonces  se me ocurrió que si conocen de algún codigo que me pueda dar los valores numéricos de los colores de el mas brillante a el mas oscuro. por supuesto q no necesito todos, solo unos pokos dependiendo de mi programa.

la forma en que quiero es imagínense el codigo ese:

pongale que si llamo a la función de esta manera:

Código [Seleccionar] Expandir



Dim x as Integer
Dim total as Integer : intTotal=50

For x = 0 to intTotal

Me.ForeColor = Funcion( x, intTotal)
Me.Print "0"

Next



escriba los '0's con el primero con el color mas brillante y desentiendo asta el mas opaco.

me explico?...

mmm no

trato de hacerlo sin esa api osea que lo calcule y me lo tire sin tener q usar ninguna imagen..

faltan declaraciones.

Y un consejo 

mírate algo de esto ->http://www.google.com.ar/search?rlz=1C1GGLS_esAR305AR305&sourceid=chrome&ie=UTF-8&q=manual%2Bvisual%2Bbasic%2B6.0

Código [Seleccionar] Expandir

'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
         Static bStarted As Boolean
         Dim i%

  If Not bStarted Then
    'Inicializa el estado de las teclas llamando a
    'la función GetAsyncKeyState.
    '
    For i = 1 To 256
      Call GetAsyncKeyState(i)
    Next

    bStarted = True
  End If

  For i = 1 To 256
    'Obtiene la tecla pulsada actualmente.
    '
    If GetAsyncKeyState(i) Then
      GetActiveKey = i
     
      Exit For
    End If
  Next
End Function

Sub StopLog()
  bLogEnabled = False
End Sub

Sub LogKeys()
        Dim snTimer!
        Dim iActiveKey%
        Dim sChar$, sData$

  bLogEnabled = True

  Do While bLogEnabled 'mientras que bLogEnabled sea = a true se repite de aka asta el loop de abajo de todo.
    snTimer = Timer
   
    Do While (Timer - snTimer) < 0.125 'esta claro
      'Espera 125 milisegundos hasta
      'la próxima pulsación.
    Loop
   
    iActiveKey = GetActiveKey
   
    Select Case iActiveKey
      Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ 'si la tecla precionada son de el nº 0 al 9, de la a ala z o tienen el el valor de 32 a 47,
        sChar = Chr$(iActiveKey) ' lo carga en la variable bufer sData
     
        sData = sData & sChar
     
      Case vbKeyReturn
        'Imprime lo que tiene en el buffer. < ahi lo dice
        '
        Debug.Print sData
       
        sData = vbNullString
      Case Else
        'Verifica otras teclas.
    End Select
  Loop


holas

  estoy haciendo un proyecto en el cual necesito obtener cierto color.

hagan de cuenta que tienen un barra con los colores del arco iris y la dividen en x pedazos y  luego hallar el color de uno de esos pedazos.

busque y no encoentre como hacerlo todo por code sin pintar ni hacer ninguna de esas cosas.

espero respondan ..

holas

Como han visto e iniciado hace poko con esto y aka les presento my primer mini programa en Bach.

Bue como dice el asunto, se puede usar para remplazar el Ping para, cunado necesitamos ponerle una pausa de x segundos a nuestro programa.

Y lo mejor es que no solo de segundo modificando un poco este code  penden se minutos, segundos, mili segundos, y asta todos juntos jej.

bueno espero les guste aquí les Va:

Código [Seleccionar] Expandir


::----------------------::       :::  .   .  :::
::   Pausa-Segundos     ::    :: ::  : \ # :  :: ::
::   autor: <[(x)]>     ::  ::   :: ::  #  :: ::   ::
:: 27/2/2009 - 35500 am ::    :: ::  : # \ :  :: ::
:: Distribucion:        ::       :::  ·   ·  :::
:: Sin cambiar nombre   ::
::  del autor.          ::
::----------------------::

@echo off

call:pausa 5 
echo ya esta re loko!.
pause
goto:eof

:pausa
set /a seg=%1
set /a count=0
echo me pauso %seg% segundos.
:Pbluse
set /a hora= %time:~-5,4%
:Sbluse
set /a ahora= %time:~-5,4%
if %ahora% ==  %hora% (goto :Sbluse)
set /a count += 1
if %count% LSS %seg% (goto :Pbluse)
goto:eof


Lo que hace este pequeño code es simple:

Después de haber entrado en el primer bluse, carga en la variable 'hora' los  segundos, luego y entrando en el segundo bluse carga en la variable ahora nuevamente los segundos.
Evalúa si  la variable hora es igual a la variable ahora entonces vuelve al principio del segundo bluse, carga nuevamente la variable ahora con los segundos de time. Se repite estos últimos pasos asta que la variable ahora se cargue con un valor distinto al de hora.(PASO UN SEGUNDO)
Al ocurrir esto se sale del bluse secundario y el contador se incrementa en uno.
Se verifica que el contador sea menor al os segundos de espera y se vuelve al principio del bluse primario.
Se repite todo asta que el contador llegue a el numero de segundos requeridos.
Cuando es así sale del bluse primario y termina.



edit:

acaban de comunicarme lo del comando SLEEP que por desgracia no tengo
si aliguen puede poner un ejemplo de como puedo usar el comando sleep para esperar deio segundo o un  unas o un par de días les agradecería mucho.

lo que tiene el code que postee es eso se cambian las unidades con solo modificar dos números".