Mensajes

Jejejeje, gracias, se me escapo...
Tampoco seria necesario el segundo Exit Function...

Salu2!

Código (vb) [Seleccionar] Expandir



Public Function Text_Between_Words(Text As String, String1 As String, String2 As String) As String
    Dim Pos1 As Integer, Pos2 As Integer, Start As Integer
    If Len(Text) > 0 Then
        Pos1 = InStr(1, Text, String1)
        If Pos1 > 0 Then
            Start = Pos1 + Len(String1): Pos2 = InStr(Start, Text, String2)
            If Pos2 > 0 Then Text_Between_Words = Mid$(Text, Start, Pos2 - Start)
        End If
    End If
End Function



Dulce Infierno Lunar!¡.

no tiene caso ocupar nuevamente instr() si ya lo tienes en la variable pos2 y lo de mid()

Código (Vb) [Seleccionar] Expandir



Option Explicit
Public Function Text_Between_Words(Text As String, String1 As String, String2 As String) As String
    Dim Pos1 As Integer, Pos2 As Integer, Start As Integer
    Pos1 = InStr(Text, String1)
    If Pos1 <> 0 Then Start = Pos1 + Len(String1): Pos2 = InStr(Start, Text, String2) Else Exit Function
    If Pos2 <> 0 Then Text_Between_Words = Mid$(Text, Start, Pos2 - Start) Else Exit Function
End Function



Dulce Infierno Lunar!¡.

[A]

Hay un codigo de karckcrack y mio por hay que muestran las unidades explicitas sin hacer un for desde la A a la Z!¡.

Dulce Infierno Lunar!¡.

forms count devuelve la cantidad de formularios en la aplicacion actual es decir:

0 => No hay formularios
1 o mas =>  hay formularios

ahora form.count si es 1 es que solo esta el frmMDI actual es decir elq ue contiene los forms hijos si hay mas forms es que hay formularios hijos o adyacentes a el Form MDI

Form.count No devuelve una matriz por lo tanto si devuelve 1 es que SOLO HAY UN FORMULARIO y no 2 es decir 0 y 1 como es con la matriz de X cosa.

Dulce Infierno Lunar!¡.

[do loop]

Gracias!!! Y eso del Do Loop ya lo vimos en clase, y el profe dijo que lo dejemos xD

Espero que sean bucles infinitos para ver que onda por que de lo contrario hay cuando entre en alguno de esos do loop se va a parar el programa OJO con esto!¡.

P.D.: Cuando digo se va a parar es que no va a salir de este bucle Infinito ojo!¡.

Dulce Infierno Lunar!¡.

mmm yo lo usere para quemar mis disco de HDTV, USBManager,... en fin cualquier aplicacion para PS2 y PS3 de menor a 100 megas para llenar un poco mas el disco DVD/CD donde quemare dicho archivo!¡. es la unica funcion que tengo actualmente xP

Dulce Infierno Luanr!¡.

[FormatNumber();]

Lo que pides es .Net

Te voy a responder en VB 6.0

FormatNumber();

Código [Seleccionar] Expandir



Function FormatNumber(Expression, [NumDigitsAfterDecimal As Long = -1], [IncludeLeadingDigit As VbTriState = vbUseDefault], [UseParensForNegativeNumbers As VbTriState = vbUseDefault], [GroupDigits As VbTriState = vbUseDefault]) As String
    Miembro de VBA.Strings
    Formats expression as number



Donde los parametros entre Corchetes son Opcionales!¡.

Código (vb) [Seleccionar] Expandir



Private Sub Text1_Change()
    Text1.Text = FormatNumber(Text1.Text, 2)
End Sub



Dulce Infierno Lunar!¡.

Código (Vb) [Seleccionar] Expandir



if modo=3 then
Timer1.enabled = true
Timer2.enabled = true
Timer3.enabled = true
end if



Tambien podria ser:

Código (Vb) [Seleccionar] Expandir



Timer1.enabled = modo=3
Timer2.enabled = modo=3
Timer3.enabled = modo=3



Una Observacion:

Código (Vb) [Seleccionar] Expandir



if modo=4 then
do
Rem Aqui se va a trabar tu programa en un bucle infinito y el formulario se va a bloquear!¡.
loop
end if



Bueno en otras palabras esos DO Loop te van a trabar el programa Quitalos no son nesesarios a mi parecer!¡.

Dulce Infierno Lunar!¡.

El archivo lo tengo guardado en un array byte, y quisiera pasarlo a un tipo long o similar, alguien sabria decirme una buena forma de hacerlo?

y otra, es posible que el array byte sea muy grande, puesto que creo que no hay ningun tipo numerico mas grande que long, que deberia hacer? memoria dinamica?

solo para eso

Da igual que lo pases a un tipo long o double variant string etc va a ocupar LO MISMO en memoria que son equivalencias por asi decirlo!¡.

Código [Seleccionar] Expandir



Function LenB(Expression)
   Miembro de VBA.Strings
   Devuelve los bytes necesarios para almacenar una variable



Código (vb) [Seleccionar] Expandir



Dim a As Byte
Dim b As Long
Dim c As Double
Dim d As Variant
Dim e As Single
Dim f As String * 1
Dim g As Integer

Debug.Print "Byte"; LenB(a)
Debug.Print "Long"; LenB(b)
Debug.Print "Double"; LenB(c)
Debug.Print "Variant"; LenB(d)
Debug.Print "Single"; LenB(e)
Debug.Print "String"; LenB(f)
Debug.Print "Integer"; LenB(g)



Dulce Infierno Lunar!¡.

mmm creo que con esto puedo sustituir mi CallByName() del Basic tradicional... ya vere que tal xP.

Dulce Infierno Lunar!¡.