Mensajes

No tengo ni la menor idea de porque ejecuta el otro archivo xD

Por el CreateProcess....

Mueve el scroll horizontal, lo que ha echo es esconderlo 

jaja no me habia dado cuenta.

Bueno, como observareis soy nuevo en el foro, y quiero iniciarme en esto de la programación, aunque tengo algunas dudas. Espero que me ayudéis.

1.- ¿Cuál es el lenguaje más cmún y en el que más se trabaja? me refiero si a CC, vB, etc...

2.- ¿Con el vB se crean aplicaciones/programas e TODO tipo no?

3.- ¿Créeis que vale la pena?

4.- ¿Para que cosas me serviría en un futuro?

Saludos y gracias.-

1. No te sabria decir muy bien pero creo que con C/C++, VB, C# y no se son los que mas conozco.

2. Emmm depende que sea todo tipo xD, pero si se pueden hacer muchisimas cosas.

3. Vale muchisimo la pena.

4. Ve a bill gates.

No tengo ni la menor idea de porque ejecuta el otro archivo xD

si... ponle de extension .exe y ahi mismo te cambia al iconito del visual y todo xDDD

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

Salu2 

Es el archivo Proyecto1 el que no tiene ninguna extensión.....

[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 

Entonces resolvistes cambiando el metodo por OutPut y usando Print?

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

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Dim userid1 As String
Dim nombre1 As String
Dim archivo3 As Long

archivo3 = FreeFile
userid1 = "1"
nombre1 = "naderST"

Open "C:\amigos.txt" For Output As #archivo3
    Print #archivo3, userid1 & "|" & nombre1
Close #archivo3
End Sub


La mejor clase para los ini que he visto y usado es la de Cobein k por cierto Cobein deberias postearla aca 

no... pero hablando en serio sufro de combulciones cerebrales! :S... no no sabia del post los buskr!

uh :S yo tengo fragilidad nasal xDDDD pero en fin no es alzheimer 

que tienen Alzheimer juvenil???

Jajajajaja que risa dios, pero parece verdad...