Amigos, hola.
Estoy tratando de abrir un archivo .txt (FA.TXT) el cual esta en la carpeta c:\xojo_gestion_f utilizando este codigo:
Dim f As FolderItem
Dim textInput As TextInputStream
Dim rowFromFile As String
f=New FolderItem(“C:\Xojo_gestion_f\fa.txt”,FolderItem.PathTypeShell)
if f.exists then
textInput = TextInputStream.Open(f) AQUI ES DONDE ESTA EL ERROR ME DICE QUE TEXTINPUT CARECE DE VALOR
else
msgbox “Falta el archivo numeracion de factura A FA.TXT”
quit
end if
Lo raro es que lo use en otro programa y me anduvo.
Alguna sugerencia?
Gracias
Hola,
¿Estás seguro de que existe esa ruta completa hacia al archivo en el equipo sobre el que estás ejecutando el código? Establece un punto de parada en el Depurador sobre la línea textinput
y comprueba en ese momento las propiedades de la variable 'f': si es NIL, por ejemplo.
Javier
El ejemplo en la referencia del idioma yo posto emplea Try Catch para manejar excepciones.
aeste proceso me funciona bien
Dim f As FolderItem
Dim textInput As TextInputStream
Dim rowFromFile, oneCell As String
Dim i As Integer
f = GetOpenFolderItem(“text/plain”) //defined as a FileType
If f <> Nil And f.Exists Then
textInput = TextInputStream.Open(f)
textInput.Encoding = Encodings.MacRoman //strings are MacRoman
While Not textInput.EOF
rowFromFile = textInput.ReadLine
window1.label36.text=rowfromfile
Wend
textInput.Close
End If
Pero el valor de f el cual lo estoy en este proceso obteniendo mediante f = GetOpenFolderItem(“text/plain”)
me abre una ventana para seleccionar el archivo.
Mi idea es que f tome el valor c:\xojo_gestion_f\fa.txt automaticamente.
Puedes verificar la valor de f con
f = GetOpenFolderItem("text/plain") //defined as a FileType
system.debuglog(f.shellpath)
If f <> Nil And f.Exists Then
Pero pienso que no es possible f toma alguna otra valor que selecta en la ventana.
Ok.
He probado ahora este codigo
dim t as textinputstream
dim f as folderitem
f=getfolderitem(“c:\Xojo_gestion_f\FA.txt”,1)
if f.exists then
msgbox "EXISTE “+f.name+” "+f.shellpath
else
msgbox "NO EXISTE “+f.name+” "+f.shellpath
end if
f.name me da como resultado FA.txt
f.shellpath me da como resultado c:\Xojo_gestion_f\FA.txt
Pero como resultado final me da el carte msgbox "NO EXISTE FA.txt c:\Xojogestion_f\FA.txt
("c:\\Xojo_gestion_f\\FA.txt",1)
<>
c:\\Xojogestion_f\\FA.txt
¿ Que ve en el finder cuando navega dentro la carpeta Xojo_gestion_f ?
Pero como resultado final me da el carte msgbox "NO EXISTE FA.txt c:\Xojo_gestion_f\FA.txt
cuando navego en c:\xojo_gestion_f veo varios archivos, entre ellos FA.txt
Amigos desde ya muchas gracias por todo, encontre el error, la verdad que no entendia por que no funcionaba, ya que en otro programa me anduvo perfectamente.
Hize caso de la sugerencia de Michel y luego de mirar el contenido de la carpeta varias veces me di cuenta de que el archivo FA.txt estaba como FA.txt.txt ya que windows le agrega por defecto la extension.
Amigos muchas gracias por la ayuda brindada.