Importar desde Archivo Plano (.txt)

por JoseRios Lun Feb 25, 2008 5:43 pm

Con este codigo se importa desde un archivo plano txt.

Código:: Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim fileNum As Integer Dim fileName As String Set db = session.CurrentDatabase Set doc = New notesdocument(db) FileNum% = Freefile() FileName$ = "c:\precios.txt" Open FileName$ For Input As FileNum% Input #FileNum%,PriceName,ProductCode,ProductPrice,ProductMaint,ProductName,ProductCost,ProductSort,ProductDesc margin = ProductPrice Do While Not Eof(FileNum%) Input #FileNum%,PriceName,ProductCode,ProductPrice,ProductMaint,ProductName,ProductCost,ProductSort,ProductDesc Set doc = New notesdocument(db) ProductLine = "MHC" Select Case ProductSort Case Is < 30000 Cat = "Software" Case Is < 37000 Cat = "CSIM/EDA" Case Is < 40000 Cat = "Universe" Case Is < 50000 Cat = "System Builder" Case Is < 60000 Cat = "Terminal Emulation" Case Is < 80000 Cat = "DIVA" Case Else Cat = "General Products" End Select doc.form = "ProdServ" doc.ProductLine = ProductLine doc.Category = Cat doc.StatusFlag = "Active" doc.CostPercent = margin doc.ProductCode = ProductCode doc.Retail = ProductPrice doc.cost = ProductCost doc.SupportFee = ProductMaint doc.ProductName = ProductName doc.SortID = ProductSort doc.ProductDesc = ProductDesc Call doc.save(True,False) Loop Close FileNum%