Mensajes

Si, lo había vísto hace un tiempo pero me pareció que era para ASP o PHP, ahora veo que se podría hacer con c#, supongo que con vb.net también, voy a probar a ver que sale.

De todas formas la idea original era hacerlo en VB6 ya que sería parte de un código que ya tengo armado, pero bueno, si tengo que pasarlo lo paso.

¿Alguien conoce alguna manera de subir archivos a youtube desde vb6?

No encuentro absolutamente nada.

Edito y esta vez con más respeto......

o vives en una put*a nube o no te gusta compartir.

crees que haberlo solucionado es motivo para eliminar un th? si asi fuera, google no existiria. no existiria la info en internet...

creo que comes *****

por otro lado, si no quieres compartir el codigo (ENCIMA VENIS A PEDIR AYUDA), mejor vete a otro lado................. aun no me queda claro como puedes decir eso ._.

No hay necesidad de ser agresivo, si te va mal en la vida no castigues a gente inocente, por otro lado, ¡que locura! después de leer tu maleducado comentario cualquiera pensaría que el que come ***** eres tu

El thread lo abrí para consultar algo que a los pocos minutos me dí cuenta de donde estaba el error, lo solucioné y por lo tanto me pareció innecesario seguir con el thread. De todas formas, el código SI lo postié, simplemente luego lo edité, no es cuestión de egoísmo alguno.

Código [Seleccionar] Expandir

Private Sub change_Click()
Dim strWords() As String
Dim iFile As Long
Dim strFilename As String
Dim strData As String

strFilename = app.path "\words.txt"

iFile = FreeFile

Open strFilename For Input As #iFile

   strData = Input$(LOF(iFile), #iFile)

Close #iFile



strWords() = Split(strData, vbNewLine)

Dim variable As String

Text1.Text = strWords(Int(Rnd * UBound(strWords)))
End Sub


Ahora estoy viendo las otras opciones que me plantean, aunque esto no es para algo muy simple que realmente no necesita un resultado único, sino más bien darle un orden sin necesidad de elegirlo, gracias BlackZeroX, está excelente.

Código [Seleccionar] Expandir

Dim strWords() As String
Dim iFile As Long
Dim strFilename As String
Dim strData As String

strFilename = app.path "\words.txt"

iFile = FreeFile

Open strFilename For Input As #iFile

   strData = Input$(LOF(iFile), #iFile)

Close #iFile



strWords() = Split(strData, vbNewLine)

Dim variable As String

Text1.Text = strWords(Int(Rnd * UBound(strWords)))


Gracias Black!

Hay alguna manera fácil de cambiar el símbolo de los decimales? me refiero a la coma, hay forma fácil de cambiar la coma por un punto o tengo que hacer una función que reemplace el char?

EDIT:

Código [Seleccionar] Expandir

Function reemplazarTexto(textoCompleto As String, textoBuscar As String, textoReemplazar As String) As String
 Dim resultado As String
 
 resultado = Replace(textoCompleto, textoBuscar, textoReemplazar, , , vbTextCompare)
 reemplazarTexto = resultado
End Function

Quedó funcionando, gracias!

Si, sé que son iguales, pero yo necesitaba los ceros.

Gracias burbu_1, me funcionó perfecto!

Hola,

Estoy haciendo un RGB to RGBA coverter, la diferencia entre ellos es que en RGB los valores van del 0 al 255 y en RGBA van del 0.0 al 1.0.

Entonces hago RGB_R / 255 = RGBA_R:

Código [Seleccionar] Expandir

Dim RGB_R As String
Dim value As String

RGB_R = Text1.Text
value = RGB_R / 255

MsgBox value

Pero se come los 0 ... por ejemplo si hago 1 / 255 en la calculadora me da: 0,003921568627450980392156862745098 pero si lo hago con mi soft me da 3,92156862745098E-03

Incluso si hago:

Código [Seleccionar] Expandir

Dim RGB_R As String
Dim value As String

RGB_R = Text1.Text
value = RGB_R / 255

dim value2 as string
value2 = value / 1000

MsgBox value

Sigue sin mostrar los ceros ...

Excelente, muchas gracias. 

Tengo:

Código [Seleccionar] Expandir

asd = aitheoiethi[BLABLABLA]taihoithaoihtoea

Y necesito "BLABLABLA" en la variable asd2.

Probé con Mid, Split, Left, Right, pero en todos los casos tengo que saber las posiciones, y no sé cuantos caracteres va a tener "BLABLABLA" ni cuantos caracteres hay antes ni después.

¿Será que primero tengo que ver en que posición del string está el "[", luego hacer lo mismo con el "]" y una vez que sé las posiciones hacer un mid? ¿o hay alguna manera más fácil/rápida?