Discussion :

[gchazelle]

Bonjour,

Je souhaiterai savoir s'il exsite une fonction "SPLIT" en Fortran 90, permettant de scinder une chaîne de caractères suivant un séparateur donné et de retourner les parties obtenues au sein d'un tableau.

Si cette fonction n'existe pas, qq'un aurait-il développer l'équivalent ?

Merci d'avance.

Guy

[netPhilou31]

J'ai réalisé de type de fonction en fortran dans le cadre de délimiteurs particuliers (virgule et tabulation pour les fichiers de type CVS) mais il ne doit pas être très difficile de l'adapter en ajoutant en argument le délimiteur à rechercher.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
      subroutine Split(String,SubStrings,Delimiter,szSubStrings)
      implicit none
C
C     Routine fortran permettant de découper une chaine de caractères
C     en fonction d'un délimiteur passé en argument
C
      character*(*) String
      character(1) Delimiter
      integer(4) szSubStrings
      character*(*) SubStrings(szSubStrings)
C
      integer(4) I, J, K, L, n
      logical EndOfLine
C
      do I=1,szSubStrings
         SubStrings(I) = ''
      end do
C
      n = 0
      K = 1
      L = len_trim(String)
C
      EndOfLine = L-K < 0
C
      do while (.not.EndOfLine)
	      J = index(String(K:L),Delimiter)
	      if (J == 0) then
		       J = L + 1
	      else
		       J = J + K - 1
	      end if
	      n = n + 1
	      if (J /= K .and. len_trim(String(K:J-1)) /= 0) SubStrings(n) = String(k:j-1)
	      K = J + 1
	      EndOfLine = L-K < 0
      end do
C
      return
      end

J'ai adapté le code en fonction de tes besoins, à vérifier donc....

[gchazelle]

Merci pour ta réponse !!! :o