Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    septembre 2002
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2002
    Messages : 5
    Points : 5
    Points
    5

    Par défaut [Fortran 90] Fonction Split()

    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

  2. #2
    Futur Membre du Club
    Inscrit en
    décembre 2004
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : décembre 2004
    Messages : 7
    Points : 8
    Points
    8

    Par défaut

    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....

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    septembre 2002
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2002
    Messages : 5
    Points : 5
    Points
    5

    Par défaut

    Merci pour ta réponse !!! :o

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. caractéres spéciaux, fonction split, replace
    Par clochardevobsy dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 23/10/2005, 00h40
  2. Réponses: 5
    Dernier message: 13/10/2005, 13h46
  3. [String] fonction split
    Par tck-lt dans le forum Langage
    Réponses: 2
    Dernier message: 19/07/2005, 18h45
  4. procedure stockée et fonction "split"
    Par wehtam dans le forum MS SQL-Server
    Réponses: 2
    Dernier message: 18/07/2005, 17h21
  5. [Fortran 77] Fonction random
    Par ajsd0208 dans le forum Fortran
    Réponses: 1
    Dernier message: 15/07/2005, 13h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo