Mensajes

Código (vb) [Seleccionar] Expandir


Function getXfire(ByVal tStr As String, ByVal fPar As String, ByVal lPar As String) As String
   Dim i As Long
   Dim f As Long
   Dim isValid As Boolean
   tStr = Replace(LCase(tStr), vbCrLf, "")
   tStr = Replace(tStr, vbTab, "")
   i = InStr(tStr, fPar)
   f = InStr(i + Len(fPar) + 1, tStr, Chr$(34))
   While i > 0 And f > 0
       If Mid(tStr, f + 2, Len(lPar)) = lPar Then
           getXfire = getXfire & Mid(tStr, i + Len(fPar) + 1, f - i - Len(fPar) - 1)
           isValid = True
       End If
       i = InStr(f + 1, tStr, fPar)
       f = InStr(i + Len(fPar) + 1, tStr, Chr$(34))
       If i > 0 And f > 0 And isValid Then getXfire = getXfire & vbCrLf
       isValid = False
   Wend
End Function

Private Sub Command1_Click()
   Text2 = getXfire(Text1, "<a href=", "<img") '--> Lo que este en "<a href=" lo guardara sin comillas, siempre y cuando este junto a una etiqueta "<img"
End Sub


A ver que tal este  

[@Elemental Code]

Jajajajjaajajajjajaja   

@Elemental Code
No te mortifiques, relax, dejalo ser 

@........ (no me pondre a contar los puntos que son )
Trata de hacerlo por ti mismo, cuando menos dedicale algo de tiempo, pero dedicaselo!, en el punto que tu digas: "oh ya!, hasta aqui!, ya no puedo seguir", vienes al foro y pones todo tu avance(el codigo). Ahi es donde entra la gente que si sabe y te podra ayudar, pero si vienes a pedir trabajos completos nadie lo hara... y menos si no explicas bien tu problema...
echale ganas 

Código (vb) [Seleccionar] Expandir


Function getXfire(ByVal tStr As String) As String
    Dim i As String
    Dim f As String
    tStr = LCase(tStr)
    i = InStr(tStr, "<a href=")
    f = InStr(tStr, "<img class")
    If i = 0 Or f = 0 Then getXfire = "No hay!": Exit Function
    getXfire = Mid(tStr, i + 9, f - i - 11)
End Function


checalo

Creo que no se puede colocar el codigo fuente dentro del codigo fuente  ... verdad?, si se hace eso se puede crear una paradoja que puede destruir el universo... ejem!... 

Queda autoleerse el programa, pero no se podria extraer el codigo fuente puro. No conozco desensambladores que lo hagan. Una pista por favor compadre 

[McLaren]

.
Yo quiero un McLaren negro con una calabera en el cofre y no por eso lo estoy diciendo a los 4 vientos.

Dulces Lunas!¡.

+1 pero sin calavera 

Código (vb) [Seleccionar] Expandir


private sub form_load()
    dim elcolorqueelquierematerilerileron as long
    elcolorqueelquierematarilerileron = &H0
    picture1.autoredraw=true
    picture1.scalemode=3
    picture1.pset (10,10),elcolorqueelquierematerilerileron  '<---- Dibuja un punto
    picture1.line (10,10)-(100,100),elcolorqueelquierematarilerileron,bf  '<----dibuja un "cuadrito"
end sub




Código (vb) [Seleccionar] Expandir


rivate Const sF As String = "0 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903"

Public Static Function IsFibonacci_WithCache_MrFrog(ByRef lngNum As Long) As Boolean
    IsFibonacci_WithCache_MrFrog = InStr(1, sF, (" " & lngNum & " "), vbBinaryCompare)
End Function

private sub form_load()
    msgbox IsFibonacci_WithCache_MrFrog(0) <------ FALSE!!!
    msgbox IsFibonacci_WithCache_MrFrog(1836311903) <------ FALSE!!!
end sub


no me hagas caso 

Código (vb) [Seleccionar] Expandir

Private Const sF As String = "0 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903"

Public Static Function IsFibonacci_WithCache_MrFrog(ByRef lngNum As Long) As Boolean
   IsFibonacci_WithCache_MrFrog = InStr(1, sF, lngNum, vbBinaryCompare)
End Function

private sub Form_load()
  msgbox isfibonacci_withcache_mrfrog(4)  '<------ True!!!!!
end sub


Código (vb) [Seleccionar] Expandir


Private Const sF As String = " 0 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903 "

Function isfibonacciIgno(IngNum As Long) As Boolean
   isfibonacciIgno = InStr(sF, " " & IngNum & " ")
End Function


Es que no tra integrado ningun IDE, para editar tu codigo, simplemente abres el block de notas y metes tu codigo, lo guardas con el mismo nombre de la clase principal y con terminacion java:

[NOMBREDELACLASE].JAVA

Luego usas la linea de comandos para compilar y ejecutar:

Código [Seleccionar] Expandir


javac c:\programa.java


Puedes descargarte algun IDE por ejemplo el netbeans o el eclipse, o si lo prefieres un editor de codigo simple, por ejemplo Notepad++

En el mismo ejecutable no se puede, pero:

http://foro.elhacker.net/programacion_visual_basic/rutinas_interesantes-t139883.0.html;msg657075#msg657075

cierto amigo, se me paso lo de "doevents"