[R] Write text file in Fortran format

[javad bayat]

Dear all;
I apologise, I didn't know that I have to cc the list.
Thank you Mr Rui for reminding me.
Let me clarify more.
I have no knowledge of the FORTRAN language. The text file that has been
attached is a model's output file and I know that the format is in FORTRAN.
I want to write a text file exactly similar to the attached text file using
R programming.
The steps below explain my goal:
1- Read the text file without the first 8 and last 2 rows as a dataframe.
Maybe I have removed the last 2 lines, but at the end it had 2 lines
similar the first 8 lines which starts with asterisk.
2- Double the 3rd column values (or multiply by specific number).
3- Insert the removed first 8 lines of the original text file as header in
the dataframe.
4- Insert the removed last 2 lines of the original text file at the end of
dataframe.
5- Write the dataframe as a new text file exactly similar to the original
text file.

I have used excel but when I save it as text file, the format changes and
is not similar to the attached text file.
I will try all your codes in a few hours, cause I am out of office.
Sincerely yours.



On Thu, 22 Sep 2022, 04:20 Richard O'Keefe, <raoknz using gmail.com> wrote:

> Oh, so you want to WRITE a file *like* that.
> Use ?sprintf.
> (3(1X,F13.5),3(1X,F8.2),3X,A5,2X,A8,2X,A5,5X,A8,2X,I8)
>
> Fortran sprintf
> 1X      a space
> 3X      3 spaces
> F13.5   %13.5f
> F8.2    %8.2f
> A5      %5s
> A8      %8s
> I8      %8d
> 3(...)  the translation of ... written 3 times
>
> We can simplify 1X,F13.5 to F14.5
> Here's the sprintf() equivalent of the Fortran format,
> except you'll need to change the dots to spaces.
>
> "%14.5f%14.5f%14.5f%9.2f%9.2f%9.2f...%5s..%8s..%5s.....%8s%10d\n
>
> On Thu, 22 Sept 2022 at 04:17, javad bayat <j.bayat194 using gmail.com> wrote:
>
>> Dear Rasmus;
>> I have no knowledge of the FORTRAN language. The text file that has been
>> attached is a model's output file and I know that the format is in
>> FORTRAN.
>> I want to write a text file exactly similar to the attached text file
>> using
>> R programming.
>> The steps below explain my goal:
>> 1- Read the text file without the first 8 and last 2 rows as a dataframe.
>> 2- Double the 3rd column values (or multiply by specific number).
>> 3- Insert the removed first 8 rows of the original text file as header in
>> the dataframe.
>> 4- Insert the removed last 2 rows of the original text file at the end of
>> dataframe.
>> 5- Write the dataframe as a new text file exactly similar to the original
>> text file.
>>
>> I have used excel but when I save it as text file, the format changes and
>> is not similar to the attached text file.
>> Sincerely
>>
>> On Wed, 21 Sep 2022, 18:17 Rasmus Liland, <jral using posteo.no> wrote:
>>
>> > Dear Javad,
>> >
>> > Perhaps you were looking to read the
>> > table in Air.txt (is this Fortran
>> > format?) into R?
>> >
>> >         b <- readLines("Air.txt")  # The text MIME attachment w/Mailman
>> > footer ...
>> >         b <- b[1:(which(b=="")-1)]  # Remove the odd Mailman footer (at
>> > end of df)
>> >         idx <- max(grep("^\\*", b))+1  # Start of df after header uline
>> >         header <- tolower(strsplit(gsub("  +", "_", gsub("\\*", "",
>> > b[idx-2])), "_")[[1]])
>> >         b <- read.table(text=b[-(1:idx)], header=F)
>> >         colnames(b) <- header[header!=""]
>> >         b <- b[,sapply(b, \(i) length(unique(i)))>1]  # Remove constant
>> > cols
>> >
>> > str(b)
>> >
>> >         'data.frame':   31324 obs. of  6 variables:
>> >          $ x           : num  583500 584000 584500 585000 585500 ...
>> >          $ y           : num  3018700 3018700 3018700 3018700 3018700
>> ...
>> >          $ average conc: num  32.8 33.1 33.4 33.5 33.6 ...
>> >          $ zelev       : num  0 0 0 0 0 0 0 0 0 0 ...
>> >          $ zhill       : num  0 0 0 0 0 0 0 0 0 0 ...
>> >          $ date(conc)  : int  16101706 16101706 16101706 16101706
>> 16101706
>> > ...
>> >
>> > Best,
>> > Rasmus
>> >
>> > ______________________________________________
>> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> > PLEASE do read the posting guide
>> > http://www.R-project.org/posting-guide.html
>> > and provide commented, minimal, self-contained, reproducible code.
>> >
>>
>>         [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>

	[[alternative HTML version deleted]]