FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Wx - Importar arquivo CSV - Procedure WS_ImportCSV
Wx - Importar arquivo CSV - Procedure WS_ImportCSV
Iniciado por adrianoboller, 28,ago. 2015 20:36 - No hay respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 28,agosto 2015 - 20:36
Procedure
WS_ImportCSV
(
s
FullFileName is
string
)
s
CsvSeparator is
string
=
";"
s
CsvRow is
string
n
FileNum is
int
n
Loop
,
Total is
int
n
Col is
int
n
JumCol is
int
=
1
// Create a Table Control with the sufficient (more) column
//TableDeleteAll(TABLE_Table1)
n
FileNum
=
fOpen
(
s
FullFileName
,
foRead
)
IF
n
FileNum
= -
1
THEN
Error
(
"File not found!"
)
ELSE
LOOP
s
CsvRow
=
fReadLine
(
n
FileNum
)
n
Col
=
1
Total
=
Length
(
s
CsvRow
)
FOR
n
Loop
=
1
TO Total
IF
s
CsvRow
[
[
n
Loop
]
] =
s
CsvSeparator
THEN
s
CsvRow
[
[
n
Loop
]
] =
TAB
n
Col
+
+
END
END
Info
(
s
CsvRow
)
//TableAdd(TABLE_Table1,sCsvRow)
IF
s
CsvRow
=
EOT
THEN BREAK
END
fClose
(
n
FileNum
)
END
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto