string - vez - Convierte enteros en cadenas para crear nombres de archivos de salida en tiempo de ejecución

leer una linea especifica de un archivo en python

Question

Tengo un programa en Fortran que guarda los resultados en un archivo. En este momento abro el archivo usando

OPEN (1, FILE = ''Output.TXT'')

Sin embargo, ahora quiero ejecutar un ciclo y guardar los resultados de cada iteración en los archivos ''Output1.TXT'' , ''Output2.TXT'' , ''Output3.TXT'' , y así sucesivamente.

¿Hay alguna manera fácil en Fortran de construir nombres de archivo desde el contador de bucles?

Answer 1

Aquí está mi enfoque de subrutina para este problema. transforma un entero en el rango 0: 9999 como un personaje. Por ejemplo, INTEGER 123 se transforma en el personaje 0123. Espero que ayude.

PD: perdón por los comentarios; tienen sentido en rumano: P

 subroutine nume_fisier (i,filename_tot)
implicit none
integer :: i
integer :: integer_zeci,rest_zeci,integer_sute,rest_sute,integer_mii,rest_mii
character(1) :: filename1,filename2,filename3,filename4
character(4) :: filename_tot
! Subrutina ce transforma un INTEGER de la 0 la 9999 in o serie de CARACTERE cu acelasi numar
! pentru a fi folosite in numerotarea si denumirea fisierelor de rezultate.
if(i<=9) then
filename1=char(48+0)
filename2=char(48+0)
filename3=char(48+0)
filename4=char(48+i)
elseif(i>=10.and.i<=99) then
integer_zeci=int(i/10)
rest_zeci=mod(i,10)
filename1=char(48+0)
filename2=char(48+0)
filename3=char(48+integer_zeci)
filename4=char(48+rest_zeci)
elseif(i>=100.and.i<=999) then
integer_sute=int(i/100)
rest_sute=mod(i,100)
integer_zeci=int(rest_sute/10)
rest_zeci=mod(rest_sute,10)
filename1=char(48+0)
filename2=char(48+integer_sute)
filename3=char(48+integer_zeci)
filename4=char(48+rest_zeci)
elseif(i>=1000.and.i<=9999) then
integer_mii=int(i/1000)
rest_mii=mod(i,1000)
integer_sute=int(rest_mii/100)
rest_sute=mod(rest_mii,100)
integer_zeci=int(rest_sute/10)
rest_zeci=mod(rest_sute,10)
filename1=char(48+integer_mii)
filename2=char(48+integer_sute)
filename3=char(48+integer_zeci)
filename4=char(48+rest_zeci)
endif
filename_tot=''''//filename1//''''//filename2//''''//filename3//''''//filename4//''''
return
end subroutine nume_fisier

Answer 2

Bueno, aquí hay una función simple que devolverá la versión de cadena justificada a la izquierda de un entero:

character(len=20) function str(k)
! "Convert an integer to string."
integer, intent(in) :: k
write (str, *) k
str = adjustl(str)
end function str

Y aquí hay un código de prueba:

program x
integer :: i
do i=1, 100
open(11, file=''Output''//trim(str(i))//''.txt'')
write (11, *) i
close (11)
end do
end program x

Answer 3

Para convertir un entero en una cadena:

integer :: i
character* :: s
if (i.LE.9) then
s=char(48+i)
else if (i.GE.10) then
s=char(48+(i/10))// char(48-10*(i/10)+i)
endif

Answer 4

Para una versión abreviada. Si todos los índices son menores que 10, entonces use lo siguiente:

do i=0,9
fid=100+i
fname=''OUTPUT''//NCHAR(i+48) //''.txt''
open(fid, file=fname)
!....
end do

Para una versión general:

character(len=5) :: charI
do i = 0,100
fid = 100 + i
write(charI,"(A)"), i
fname =''OUTPUT'' // trim(charI) // ''.txt''
open(fid, file=fname)
end do

Eso es todo.

Answer 5

Pruebe lo siguiente:

 ....
character(len=30) :: filename ! length depends on expected names
integer :: inuit
....
do i=1,n
write(filename,''("output",i0,".txt")'') i
open(newunit=iunit,file=filename,...)
....
close(iunit)
enddo
....

Donde "..." significa otro código apropiado para su propósito.

Answer 6

Una solución mucho más fácil en mi humilde opinión ...................

character(len=8) :: fmt ! format descriptor
fmt = ''(I5.5)'' ! an integer of width 5 with zeros at the left
i1= 59
write (x1,fmt) i1 ! converting integer to string using a ''internal file''
filename=''output''//trim(x1)//''.dat''
! ====> filename: output00059.dat

Answer 7

Ya lo mostré en otro lugar en SO ( ¿Cómo usar una variable en la declaración de especificador de formato?, No un duplicado exacto en mi humilde opinión), pero creo que vale la pena ubicarlo aquí. Es posible utilizar las técnicas de otras respuestas para esta pregunta para hacer una función simple

function itoa(i) result(res)
character(:),allocatable :: res
integer,intent(in) :: i
character(range(i)+2) :: tmp
write(tmp,''(i0)'') i
res = trim(tmp)
end function

que puede usar después sin preocuparse por recortar y ajustar a la izquierda y sin escribir en una variable temporal:

OPEN(1, FILE = ''Output''//itoa(i)//''.TXT'')

Requiere Fortran 2003 debido a la cadena asignable.

Answer 8

Ya probé con @Alejandro y @ user2361779, pero me da un resultado insatisfecho, como el file 1.txt o el file 1.txt file1 .txt lugar de file1.txt . Sin embargo, encuentro la mejor solución:

...
integer :: i
character(len=5) :: char_i ! use your maximum expected len
character(len=32) :: filename
write(char_i, ''(I5)'') i ! convert integer to char
write(filename, ''("path/to/file/", A, ".dat")'') trim(adjustl(char_i))
...

Explicación:

por ejemplo, establecer i = 10 y write(char_i, ''(I5)'') i

char_i gives " 10" ! this is original value of char_i
adjustl(char_i) gives "10 " ! adjust char_i to the left
trim(adjustl(char_i)) gives "10" ! adjust char_i to the left then remove blank space on the right

Creo que esta es la solución más simple que le da un nombre de archivo de longitud dinámica sin ningún espacio en blanco heredado del proceso de conversión de enteros a cadenas.

Answer 9

puedes escribir en una unidad, pero también puedes escribir en una cadena

program foo
character(len=1024) :: filename
write (filename, "(A5,I2)") "hello", 10
print *, trim(filename)
end program

Tenga en cuenta (este es el segundo truco que estaba hablando) que también puede construir una cadena de formato mediante programación.

program foo
character(len=1024) :: filename
character(len=1024) :: format_string
integer :: i
do i=1, 10
if (i < 10) then
format_string = "(A5,I1)"
else
format_string = "(A5,I2)"
endif
write (filename,format_string) "hello", i
print *, trim(filename)
enddo
end program