Il Linguaggio Fortran 90/95

40 Tipi ed espressioni
Si noti che una sottostringa fa riferimento alle stesse locazioni di memoria della stringa
madre per cui se viene modificato il contenuto della sottostringa cambiano automaticamente
anche i caratteri della stringa madre.
Come detto in precedenza, una sottostringa può essere usata come una qualunque variabile
stringa ”originale” per cui, in particolare, essa può essere usata a sinistra di una espressione di
assegnazione. Quanto detto è ben illustrato dal seguente programma:
PROGRAM test_sottostringhe
IMPLICIT NONE
CHARACTER(LEN=6) :: str1, str2, str3
str1 = "abcdef"
str2 = "123456"
str3 = str1(3:5)
str2(5:6) = str1(1:2)
PRINT*, str1
PRINT*, str2
PRINT*, str3
END PROGRAM test_sottostringhe
il cui output è:
abcdef
1234ab
cde
Operatore di concatenazione di stringhe
L’operatore di concatenazione di stringhe combina due o più stringhe (o sottostringhe) a formare
un’unica stringa più grande. Esso è rappresentato dal simbolo di un doppio slash (”//”). La
forma generale di questo operatore è la seguente:
stringa_1//stringa_2 [// stringa_3 ...]
in cui, se le stringhe stringa_1 e stringa_2 hanno lunghezza n_1 ed n_2 , rispettivamente,
la lunghezza della stringa finale sarà n_1 +n_2 .
Si consideri il seguente frammento di programma:
CHARACTER(LEN=7) :: nome1="Donald"
CHARACTER(LEN=5) :: nome2="Duck", nome3="Duffy"
CHARACTER(LEN=11) :: ans1, ans2, ans3
...
ans1 = nome1//nome2
ans2 = nome3//" "//nome2
ans3 = nome2//nome2//nome2
A seguito delle operazioni di concatenazione, il contenuto delle variabili ans1, ans2, ans3, sarà
il seguente: