Visual Basic - agregar un archivo txt en el ejecutable

Life is soft - evento anual de software empresarial
   
Vista:

agregar un archivo txt en el ejecutable

Publicado por beatriz (34 intervenciones) el 22/03/2008 05:23:33
tengo un archivo aspx en la carpeta del programa diseñado, cuando inteto abrir el ejecutable me dice que el archivo no se puede abrir.
en el código abro el archivo con Dir1.Path = App.Path , creo una variable y le asigno el nombre del archivo 'nombrearchivo = "teclas.aspx" y la cargo el el form load.
como hago para que visual cargue el archivo al igual que carga una imagen o un sonido.
gracias a quien me pueda ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:agregar un archivo txt en el ejecutable

Publicado por jose (10 intervenciones) el 22/03/2008 12:12:31
¿lo que quieres es abrir un archivo aspx en el control internet de visual basic o abrirlo para leer su contenido?

Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar un archivo aspx en el ejecutable

Publicado por beatriz (34 intervenciones) el 22/03/2008 15:39:58
gracias por responder. te cuento que es la primera vez que entro a un foro.
Lo que quiero es que en el ejecutable se abra para leer su contenido ya que allí estan guardadas las palabras con las que se ejecutará el juego del AHORCADO.
Es decir, de este archivo salen las palabras que el alumno debe escribir (son los nombre de las teclas de control).
otra vez GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar un archivo txt en el ejecutable

Publicado por lolo (163 intervenciones) el 22/03/2008 15:13:00
pues... con un archivo de recursos que va integrado en el proyecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar un archivo txt en el ejecutable

Publicado por BEATRIZ (34 intervenciones) el 22/03/2008 15:43:20
Manolo, soy principiante en visual y no entiendo lo del recurso que va integrado en el proyecto.
me podrías explicar mejor.
GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar un archivo txt en el ejecutable

Publicado por lolo (163 intervenciones) el 22/03/2008 18:00:39
Bueno, sería largo de explicar aquí. Lo mejor es que pinches en la ayuda del VB y en la opción de Búsqueda.. escribes:

"Archivos de recursos"

Encontrarás mucha información
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar un archivo txt en el ejecutable

Publicado por beatriz (34 intervenciones) el 22/03/2008 18:39:13
VOY A CONSULTA.R Y LUEGO TE COMENTO COMO ME FUE.
GRACIAS.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Urgente. Por favor

Publicado por beatriz (34 intervenciones) el 22/03/2008 20:49:45
Manolo ya agregue el archivo de recurso, el archivo se llama teclas.res y lo cargue en una variable nombrearchivo asi:
nombrearchivo = LoadResData(101, "CUSTOM")
¿Que modificaciones debo hacer en este código para que el archivo abra?

Private Sub cuentalineas()
Dim InFile As Integer
Dim palabra As String
InFile = FreeFile

If Dir(App.Path & "" & nombrearchivo) = "" Then
MsgBox "No se ha encontrado el archivo " & nombrearchivo & ";" & _
" recuerda que se debe llamar " & nombrearchivo & " y que debe estar" & _
" en el mismo directorio ."
End
End If

Open App.Path & "" & nombrearchivo For Input As InFile
While Not EOF(InFile)
Line Input #InFile, palabra
coleccion.Add palabra
Wend
Close InFile

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente. Por favor

Publicado por jose (10 intervenciones) el 22/03/2008 22:54:54
Prueba esto, he observado que te falta el delimitador "#" y la forma en que lees.En el resto de codigo no observo nada raro.

Open App.Path & "" & nombrearchivo For Input As #InFile
While Not EOF(InFile)
Input #InFile, palabra
coleccion.Add palabra
Wend
Close #InFile


Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente. Por favor

Publicado por beatriz (34 intervenciones) el 23/03/2008 01:58:50
Jose, hice las modificaciones que me dijiste y me sigue reportndo que el archivo no se encuentra. recuerda que
nombrearchivo = LoadResData(101, "CUSTOM")
creo que por allí esta la cosa pero no se que tengo que modificar en la parte de cuentalineas
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar