Importar desde Archivo Plano (.txt)

Ver el tema anterior Ver el tema siguiente Ir abajo

Importar desde Archivo Plano (.txt)

Mensaje por JoseRios el 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%
avatar
JoseRios

Cantidad de envíos : 39
Edad : 32
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.