En/na [EMAIL PROTECTED] ha escrit:
Guaita, aquestos son el comen�ament i primera part dels arxius. Primer l'original :Be, tot i que he vist que ja ho tens respost, m'he pres la llibertat de fer-ho amb Basic, suposo que no et sera masa dificil entendre com funciona
La idea es que si tens tots els fitxers a un directori, puguis llegir-los tots d'una vegada, per aixo pots definir el directori de treball, i el tipo de fitxer.
Soc conscient de que es una mica "cutre", sobretot pel fet de fer un SHELL i marranades per l'estil, pero funciona, que es l'important. No obstant, esta obert a millores per part de qualsevol dels llistaires, eh? ;)
-- Jordi
DECLARE FUNCTION t$ (cadena AS STRING) DECLARE FUNCTION just$ (cadena AS STRING, llocs AS INTEGER, caracter AS STRING)
CONST cami = "C:\temp\" 'directori de treball
CONST resum = "resum" 'nom del fitxer de sortida
CONST llegir = "*.txt" 'fitxers que es llegiran
CONST temp = "txt.tmp"
DIM linia AS STRING
DIM cadena AS STRING
DIM a AS STRING
DIM c(8) AS STRING
c(1) =
"N0307870003025906000032084080000321150600003052504200030519042000305270400003051304200030119030"
c(2) = "VN030787"
cadena = "dir " + cami + llegir + " /b >" + cami + temp
SHELL cadena
OPEN cami + resum FOR OUTPUT AS #1
OPEN cami + temp FOR INPUT AS #2
PRINT #1, c(1)
WHILE NOT EOF(2)
INPUT #2, linia
OPEN cami + linia FOR INPUT AS #3
WHILE NOT EOF(3)
LINE INPUT #3, a
c(3) = MID$(a, 1, 3)
c(4) = MID$(a, 4, 8)
c(5) = MID$(a, 12, 3): c(5) = just(c(5), 4, "0")
c(6) = MID$(a, 15, 3): c(6) = just(c(6), 4, "0")
c(7) = MID$(a, 18, 3): c(7) = just(c(7), 4, "0")
c(8) = MID$(a, 21, 4): c(8) = just(c(8), 4, "0")
c(0) = c(2) + SPACE$(3) + c(3) + c(4) + c(5) + STRING$(6, "0")
c(0) = c(0) + c(7) + c(8) + c(6)
PRINT #1, c(0)
WEND
CLOSE #3
WEND
CLOSE
KILL cami + temp
FUNCTION just$ (cadena AS STRING, llocs AS INTEGER, caracter AS STRING)
cadena = RTRIM$(LTRIM$(cadena))
cadena = STRING$(llocs - LEN(cadena), caracter) + cadena
just$ = cadena
END FUNCTION
_______________________________________________ llista de correu de l'Internauta [EMAIL PROTECTED] http://zeus.internauta.net/mailman/listinfo/internauta
