Temas

Buenas noches estimados;

El propósito de mi código es que genere 5 copias de un archivo .dat indexados del 1 al 5, el cual les muestro a continuación:

Código (vb) [Seleccionar] Expandir

Dim counter as integer
Dim objfso, archivotexto, s, writefile
Dim file_Name as string

counter = 1

Do until counter =5

set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.opentextfile(".\Edificio2DA.dat",1)
s = archivotexto.readline

file_Name=".\"&counter&".dat"
set writefile = objfso.CreateTextFilefile_Name, True)
writefile.Write("s")
writefile.Close

set objfso=nothing
counter=counter+1

Loop


El problema es que al ejecutar me sale un error de compilación, les agradezco sus comentarios y sugerencias.

, saludos

[X240.7]

Buenas tardes estimados:

Estoy trabajando para generar archivos txt. en base a un archivo txt de origen. Pero que en cada archivo txt generado se cambie el "string"="X240.7" por un contador que aumenta cada vez que se genera un archivo txt nuevo. Este es el código que trabajé;

Código (actionscript) [Seleccionar] Expandir

@Echo OFF & SetLocal EnableDelayedExpansion
set "ST=X240.7"
set "fileCount=2"
set "i=1"
For /L %%i in (1,1,15) do(

set "inputFile=.\Archivo!i!.dat"

For /F "UseBackQ Tokens=* Delims=" %%a In ("%inputFile%") Do (
set "line=%%a"
set "VER=i+1"
set line=!line:%ST%=%VER%!

echo.!line! >>".\Archivo!fileCount!.dat"
If  /I "!line:~-3!" EQU "FIN" (
Set /A "fileCount+=1"
)
)
)
Pause&Exit /B 0

El contenido del archivo txt de origen es:


ZZZ                                               
X0.0  Y0.0  Z30.0                             
M601                                           
M2
G0 Z-100.0
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X247.5 Y317.5 F2
N490  G1 X240.7 Y324.3 Z0.5 F2
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X237.0 Y328.0 Z0.9 F2
N490  G1 X236.4 Y328.6 Z0.7 F2
N1 G1 X235.7 Y329.2 Z3.3 F2
N2  G1 X235.1 Y329.8 Z4.1 F2
N3  G1 X234.5 Y330.5 Z0.8 F2
N4  G1 X233.9 Y331.1 Z1.7 F2
N5  G1 X233.3 Y331.7 Z4.9 F2
N6  G1 X232.6 Y332.3 Z3.7 F2
N490  G1 X232.0 Y332.9 Z1.1 F2
N1  G1 X231.4 Y333.6 Z0.6 F2
N2  G1 X230.8 Y334.2 Z0.6 F2
N3  G1 X230.2 Y334.8 Z4.2 F2
N4  G1 X229.6 Y335.4 Z5.0 F2
N5  G1 X228.9 Y336.0 Z5.0 F2
N6  G1 X228.3 Y336.7 Z5.0 F2
N490  G1 X226.5 Y338.5 Z1.0 F2
G0 Z-100.0
G0 Y0
/*FIN

Solo logré generar un archivo txt, les agradezco sus comentarios y sugerencias.

, saludos

Buenos días estimados:

Tengo un programa comercial (CANNY3D) con interfez gráfica que abre exclusivamente archivos .txt y .dat y procesa los datos con solo presionar un ícono de la barra de herramientas y  luego es necesario presionar otro ícono para exportar los resultados del procesamiento de datos a archivos .txt. El problema es que tengo que hacer esto unas 1800 veces. Creo que con los post que leí de este foro puedo generar los 1800 archivos .dat para iniciar a ejecutar el programa, sin embargo como puedo automatizar la manipulación de los íconos del programa para finalmente obtener los resultados que deseo, gracias de antemano por sus comentarios y sugerencias.  

Nota: EL CANNY3D  es un programa que realiza análisis dinámico no lineal de estructuras de hormigón armado.

Saludos