Mensajes

Para quitar espacios envés de usar Replace usar Trim

No creo k sea la solucion en este caso porque tengo entendi que trim solo elimina los espacios de los lados y no los del centro o me equivoco?

Que risa xDD...

No probé con el VBA. He probado a todos pero habia diferencias, por ejemplo si lo usaba en el Form la fecha y la hora aparecían pero "congeladas", Usando el Now tambien me funcionaba. Pero especificamente yo quería que se vea el reloj contando los minutos y los segundos, asi que hice como Mojambalupe lo expuso y pude ver el reloj y la fecha corriendo. Pero la verdad es que aprendi y por eso les agradezco

Saludos

Pero siempre te funciono osea te salia la fecha pero conjelada todo este tiempo?

Lo que pasa con megaupload esk a mi siempre me dice que todos los puertos para mi pais estan siendo utilizados y no puedo descargar nunca al menos que me baje la barra de megaupload o sea premium -.-.

yo ni borracho instalo esa barra de magaupload,debe ser algun tipo de malware o anda a saber que,a algunos les salta el antivirus..si sos inteligente y usas firefox (broma) tenes un Add-In que lo bajas y te agrega un menu para poder bajar de esta pagina,es como bajarte una skin para el firefox,pero para bajar de magaupload y de todas las paginas con el mismo proceso.yo lo uso hace mucho y bajo sin problemas y el ancho de banda es el maximo..

saludos.

No conocia ese Add-In y si la barra de megaupload hace saltar varios antivirus, yo no la tengo por eso nunca puedo bajar nada de megaupload solo lo probe una vez en un cyber xD.

Lo que pasa con megaupload esk a mi siempre me dice que todos los puertos para mi pais estan siendo utilizados y no puedo descargar nunca al menos que me baje la barra de megaupload o sea premium -.-.

Usa Replace 0.o

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
    MsgBox Replace("               %var1%               %var2%", " ", "")
End Sub


Eliminar lineas con split??

Usa Replace.

Saludos

Bueno no es eliminar las lineas con split sino usar split para poder elminarlas mira como digo yo pero se me habia olvidado la funcion replace XDDD

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
    Dim Archivo As String
    Dim ArchivoEnLinea As String
    Dim ArchivoPorParte As Variant
    Dim i As Integer
   
    Open "C:\wtf.txt" For Input As #1
        Archivo = Input(LOF(1), #1)
    Close #1
   
    ArchivoPorParte = Split(Archivo, vbCrLf)
   
    For i = 0 To UBound(ArchivoPorParte)
        ArchivoEnLinea = ArchivoEnLinea & ArchivoPorParte(i)
    Next i
   
    MsgBox ArchivoEnLinea
End Sub


Usa replace sorry se me habia olvidado completamente... xD

sip pero como eligo las lineas? vbcrlF o como??

Claro! vbCrLf

Pues elminas las lineas... usa split.

Gracias seba123neo

El codigo me quedo asi:

Código (vb) [Seleccionar] Expandir


Dim c, v1, v2 As Double
v1 = Val(Text1.Text)
v2 = Val(Text2.Text)
c = v1 * v2
Label1.Caption = Str$(c)


era solo cuestion de Usar la Funcion Str la cual no conocia xD

Muchas Gracias a todos

lo mas correcto para mi es k uses Format pero bueno asi funciona.