libsim Versione 7.2.0
|
◆ csv_record_addfield_int()
Add a field from an The field will be quoted if necessary.
Definizione alla linea 650 del file file_utilities.F90. 651 firstquote = .false.
652 IF (this%record(i) == this%cquote) THEN ! ": sequenza ""
653 CALL add_char(this%cquote, .false., field)
654 cycle
655 ELSE ! carattere normale: e` terminata " "
656 inquote = .false.
657 IF (this%record(i) == this%csep) THEN ! , fine campo
658 EXIT
659 ELSE ! carattere normale, elimina "trailing blanks"
660 CALL add_char(this%record(i), .true., field)
661 cycle
|