Cargar BD Notes con fichero de texto
Hola,
He desarrollado una BD Notes pero la información principal de los registros se encuentra en un fichero de texto.
¿Cómo puedo cargar esos datos a Notes?
Me imagino que con Lotus Script se pueden leer las líneas del fichero y relacionarlas con los campos del formulario.
Gracias.
He desarrollado una BD Notes pero la información principal de los registros se encuentra en un fichero de texto.
¿Cómo puedo cargar esos datos a Notes?
Me imagino que con Lotus Script se pueden leer las líneas del fichero y relacionarlas con los campos del formulario.
Gracias.
1 respuesta
Respuesta de mqlrod
1
Esto sería un ejemplo:
Sub Incorporacion
Dim db as NotesDatabase
Dim s as New Notessession
Set db = s.CurrentDatabase
Dim doc as Notesdocument
Dim fileNum1 As Integer
Dim strdatos
fileNum1% = FreeFile
Open "FICHERO.DAT" For Random Access Read As fileNum1% _
While Not EOF(fileNum1%) ' Read until end of file.
Get #fileNum1%,, strdatos 'Recoges todo el registro
Set doc = db.CreateDocument
doc.ReplaceItemValue("Form", "Documento importado")
doc.ReplaceItemValue("Datos importados", strdatos)
Call doc.ComputeWithForm(True, False) 'Permite cálculos basados en el documento
Call doc.Save (True,False)
Wend
Close fileNum1%
End Sub
Sub Incorporacion
Dim db as NotesDatabase
Dim s as New Notessession
Set db = s.CurrentDatabase
Dim doc as Notesdocument
Dim fileNum1 As Integer
Dim strdatos
fileNum1% = FreeFile
Open "FICHERO.DAT" For Random Access Read As fileNum1% _
While Not EOF(fileNum1%) ' Read until end of file.
Get #fileNum1%,, strdatos 'Recoges todo el registro
Set doc = db.CreateDocument
doc.ReplaceItemValue("Form", "Documento importado")
doc.ReplaceItemValue("Datos importados", strdatos)
Call doc.ComputeWithForm(True, False) 'Permite cálculos basados en el documento
Call doc.Save (True,False)
Wend
Close fileNum1%
End Sub
