|
◆ csv_record_addfield_char()
subroutine csv_record_addfield_char |
( |
type(csv_record), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
field, |
|
|
logical, intent(in), optional |
force_quote |
|
) |
| |
Add a field from a CHARACTER variable to the csv record this.
The field will be quoted if necessary. - Da fare:
- Improve the trailing blank quoting.
- Parametri
-
[in,out] | this | object where to add field |
[in] | field | field to be added |
[in] | force_quote | if provided and .TRUE. , the field will be quoted even if not necessary |
Definizione alla linea 577 del file file_utilities.F90.
580 IF ( present(nfield)) nfield = this%nfield 582 END FUNCTION csv_record_getrecord 590 SUBROUTINE csv_record_getfield_char(this, field, flen, ier) 591 TYPE(csv_record), INTENT(INOUT) :: this 594 INTEGER, INTENT(OUT), OPTIONAL :: flen 595 INTEGER, INTENT(OUT), OPTIONAL :: ier 597 LOGICAL :: inquote, inpre, inpost, firstquote 598 INTEGER :: i, ocursor, ofcursor 601 IF (csv_record_end(this)) THEN 602 IF ( PRESENT(field)) field = cmiss 603 IF ( PRESENT(ier)) THEN 606 CALL l4f_log(l4f_error, & 607 'in csv_record_getfield, attempt to read past end of record ') 613 IF (PRESENT(field)) field = '' 614 IF (PRESENT(ier)) ier = 0 622 DO i = this%cursor+1, SIZE(this%record) 623 IF (inpre) THEN ! sono nel preludio, butto via gli spazi 624 IF (is_space_b(this%record(i))) THEN
|