Mensajes

Hola,

estaba leyendo algunos hilos como  ESTE y he visto que hablan de algo parecido a un compilador para VB llamado VBAdvance...

He buscado por internet y no he encontrado nada, solo lo que parece ser la web oficial pero no funciona...

alguien me puede explicar que es exactamente?

gracias

salu2 

[péntium III]

***  Es un péntium III...eso lo recuerdo, pero no lo he visto especificado en ningún sitio!   

Placa base   

Tipo de procesador      AMD Athlon, 650 MHz (3.25 x 200)

Tienes un AMD no un Intel... Normal que no venga especificado por ningún lado... 

Yo instalaría alguna versión antigua del Photoshop (la 5.5 x ejmplo) a ver si no te va muy lenta...

salu2 

Comprueba de que tipo es la variable InfoPort.

Código (vb) [Seleccionar] Expandir

Dim InforPort as ESTOESELTIPO

salu2 

Me he quedado en el nivel 7, me imagino q sera algo de sql... 

la primer clave es "----"

Modifica el post, alguna gente quedra hacerlo x si misma

Ahora modifica el tuyo xD

yo tmbn me kede en el 7....

¿Cómo creas la segunda ventana esa? Por más que busco no entiendo como lo haces xD... Archivos .res??

Salu2 

He estado leyendo el link q has proporcionado... pero al final no me ha quedado del todo claro...

Con estos manifest (para windows vista), las versiones anteriores de windows se cuelgan? también valen para obtener esos privilegios en esas otras versiones o solo es aplicable a vista?

salu2 

[Al ponerlo sustituir Print por Put ya no me aparecen esos simbolos extraños. Gracias]

Mira yo probe asi y me funciono, prueba abriendo el archivo con otro modo como OutPut

Al ponerlo sustituir Print por Put ya no me aparecen esos simbolos extraños. Gracias

Quizás si posteas el code completo tal y como lo tienes, nos des otra perspectiva.

Es todo un jaleo porque de tantas pruebas que he hecho esta ilegible el código. Lo que hace es buscar unas cadenas de texto en un archivo y guardarlas en otro:

Código (vb) [Seleccionar] Expandir

Dim hfile%
Dim amis1 As String
hfile = FreeFile
Open App.Path & "\bamigos.htm" For Input As #hfile
amis1 = Input(LOF(hfile), #hfile)
Close hfile

posnamigos = InStr(1, amis1, "1-5 de ", vbTextCompare)
namigos = Replace(Replace(Mid(amis1, (posnamigos + 7), 3), ">", ""), " ", "")

'NÚMERO DE AMIGOS EN TOTAL EN namigos

Dim npaginas As Integer
npaginas = namigos / 5
Debug.Print npaginas

Dim posamigo1 As String, posamigos2 As String, posamigo3 As String, posamigo4 As String, posamigo5 As String
Dim userid1 As String, userid2 As String, userid3 As String, userid4 As String, userid5 As String
Dim nombre1 As String, nombre2 As String, nombre3 As String, nombre4 As String, nombre5 As String

posamigo1 = InStr(1, amis1, "user_id", vbTextCompare)
userid1 = Mid(amis1, (posamigo1 + 8), 8)
nombre1 = Replace(Mid(amis1, (posamigo1 + 8 + 8 + 18), 15), ">", "")

posamigo2 = InStr((posamigo1 + 8), amis1, "user_id=", vbTextCompare)
posamigo2 = InStr((posamigo2 + 8), amis1, "user_id=", vbTextCompare)
userid2 = Replace(Replace(Mid(amis1, (posamigo2 + 8), 8), ">", ""), " ", "")
nombre2 = Replace(Mid(amis1, (posamigo2 + 8 + 8 + 18), 15), ">", "")

posamigo3 = InStr((posamigo2 + 8), amis1, "user_id=", vbTextCompare)
posamigo3 = InStr((posamigo3 + 8), amis1, "user_id=", vbTextCompare)
userid3 = Replace(Replace(Mid(amis1, (posamigo3 + 8), 8), ">", ""), " ", "")
nombre3 = Replace(Mid(amis1, (posamigo3 + 8 + 8 + 18), 15), ">", "")

posamigo4 = InStr((posamigo3 + 8), amis1, "user_id=", vbTextCompare)
posamigo4 = InStr((posamigo4 + 8), amis1, "user_id=", vbTextCompare)
userid4 = Replace(Replace(Mid(amis1, (posamigo4 + 8), 8), ">", ""), " ", "")
nombre4 = Replace(Mid(amis1, (posamigo4 + 8 + 8 + 18), 15), ">", "")

posamigo5 = InStr((posamigo4 + 8), amis1, "user_id=", vbTextCompare)
posamigo5 = InStr((posamigo5 + 8), amis1, "user_id=", vbTextCompare)
userid5 = Replace(Replace(Mid(amis1, (posamigo5 + 8), 8), ">", ""), " ", "")
nombre5 = Replace(Mid(amis1, (posamigo5 + 8 + 8 + 18), 15), ">", "")

Dim archivo3 As Long
archivo3 = FreeFile
Open App.Path & "\amigos.txt" For Binary As #archivo3
Put archivo3, , userid1 & "|" & nombre1
Put archivo3, , vbCrLf
Put archivo3, , userid2 & "|" & nombre2
Put archivo3, , vbCrLf
Put archivo3, , userid3 & "|" & nombre3
Put archivo3, , vbCrLf
Put archivo3, , userid4 & "|" & nombre4
Put archivo3, , vbCrLf
Put archivo3, , userid5 & "|" & nombre5
Put archivo3, , vbCrLf
Close #archivo3



salu2 

Lo de la declaracion de variables ya está arreglado... pero siguen saliendo los malditos cuadrados esos!!

Joder que error más tonto... pense que así se declaraban todas como string... 

gracias! 

He probado con los Trim y también he probado a solo guardar los "nombre*" y sigue ocurriendo lo mismo.

Por si sirve de algo todas las variables son strings:

Código (vb) [Seleccionar] Expandir

Dim userid1, userid2, userid3, userid4, userid5 As String
Dim nombre1, nombre2, nombre3, nombre4, nombre5 As String

salu2