Entfernen von whitespace-Zeichen in string

Ich habe den folgenden code:

  program main
     character (len=15) :: abc = "te st tex  t"
     print *, trim(abc)      
  end program main

Welche Ausgänge:

 te st tex  t

Ich vorbehalten alle Leerzeichen entfernt werden, aber das war es nicht. Wie kann ich entfernen Sie alle Leerzeichen aus dem string?

Wahrscheinlich müssen Sie so etwas wie dieses: schonfelder.co.uk/Iso_vst.f95 (Beschreibung, schonfelder.co.uk/is1539-2-99.htm)

InformationsquelleAutor fronthem | 2014-11-27

Trim entfernen, entfernen Sie Leerzeichen nur an den Rändern, nicht in der Mitte (dies ist üblich, das Verhalten auf fast alle Sprachen/Bibliotheken). Wenn Sie möchten, entfernen Sie alle Leerzeichen in der Zeichenfolge, müssen Sie Ihre eigene Funktion erstellen, um dies zu tun, Durchlaufen die string.

Ex.:

program Test

implicit none

    ! Variables
    character(len=200) :: string

    ! Body of Test
    string = 'Hello World              7    9'
    print *, string
    call StripSpaces (string)
    print *, string


contains

    subroutine StripSpaces(string)
    character(len=*) :: string
    integer :: stringLen 
    integer :: last, actual

    stringLen = len (string)
    last = 1
    actual = 1

    do while (actual < stringLen)
        if (string(last:last) == ' ') then
            actual = actual + 1
            string(last:last) = string(actual:actual)
            string(actual:actual) = ' '
        else
            last = last + 1
            if (actual < last) &
                actual = last
        endif
    end do

    end subroutine

end program Test

Getestet wurde dies auf intel-compiler, nicht auf gfortran, aber ich denke, es wird funktionieren.

Um genau zu sein trim entfernt nur Leerzeichen, keine führenden Leerzeichen.
Wieder, diese Antwort geht nicht auf die wie entfernen Sie alle whitespace-Zeichen (zumindest nicht im detail).
Dieses Beispiel ist ausführlich genug, um Sie, ja72? 🙂

InformationsquelleAutor Jauch

2

Hier ist eine dreckige, schändliche Art zu beseitigen, die Räume. Dies wird wahrscheinlich nur funktionieren, wenn ein compiler legt die Länge-15 Strings in der gleichen Reihenfolge und Raum, als wäre es ein 15-element-array von Zeichen. Dies ist zwar wahrscheinlich, um wahr zu sein, und in meiner letzten Erfahrung ist wahr, es ist nicht garantiert, so der standard. Abgesehen davon, kann dieser Ansatz gut genug.
```
  ! declarations
  CHARACTER (len=15) :: abc = "te st tex  t"
  CHARACTER, DIMENSION(LEN(abc)) :: abc_array
  ! or CHARACTER, DIMENSION(:), ALLOCATABLE :: abc_array if your compiler supports
  ! automatic allocation

  ! transfer the string into an array of characters
  abc_array = TRANSFER(abc,abc_array)

  ! eliminate the spaces, and transfer back to the string
  abc = TRANSFER(PACK(abc_array,abc_array/=' '),abc)

  ! now all the spaces are at the end of abc so the following statement writes the 
  ! string with no spaces
  WRITE(*,*) TRIM(abc)
```
Verwenden Sie diese Methode auf eigene Gefahr.

Konnte verwenden Sie die WHERE - Anweisung mit einer Reihe von CHARACTER auch heraus zu filtern, Räume?
WHERE(abc_array/=' ') abc_array2=abc_array END WHERE und dann abc = TRANSFER(abc_array2,...). Vielleicht?!?
Für mich WHERE ist ein filter. PACK ist nur, wie die Neugestaltung Art
Während faulem mit TRANSFER macht auch mir das Gefühl, schmutzig und beschämend, der standard hat einige Unterstützung für diese in das layout ein Zeichen Skalare so ziemlich die gleichen sein wie das layout eines Arrays für die Standard-Zeichen für die Sequenz association Regeln des Arguments Verein zu arbeiten (mittels dieser Regeln wird eine alternative zum transfer, aber Sie müssen eine intermediate-Prozedur-Aufruf). Sie können nicht verwenden WO - bleibt also nur noch die Elemente, die entsprechen Bereiche undefiniert.

InformationsquelleAutor High Performance Mark
1

War ich in der Lage, dies zu tun mit der variable string-Bibliothek hier beschrieben ( http://schonfelder.co.uk/is1539-2-99.htm ). Der source-code-link findet sich in der Einleitung der ISO-Dokument.

Hier ist der code

Programm Console1
verwenden ISO_VARYING_STRING
implizite keine
```
! Body of Console1
character(LEN=50) :: text = 'Hello World John Mary '
character(LEN=50) :: res

  print *, trim(text)
  ! 'Hello World John Mary'
  res = REPLACE(text,' ','', every=.TRUE.)
  print *, trim(res)
  ! 'HelloWorldJohnMary'
end program Console1
```
InformationsquelleAutor ja72

Für diejenigen, die abgeneigt TRANSFER vielleicht eine nette kleine rekursive Funktion ansprechen würde. Wie geschrieben hängt das von Fortran 2003 ist die Fähigkeit automatisch zuzuordnen Charakter Skalare, aber es sollte nicht allzu schwer zu ändern, wenn Ihr compiler nicht unterstützt diese Funktion noch nicht.

  RECURSIVE FUNCTION stripper(string,ch) RESULT(stripped)
    CHARACTER(len=*), INTENT(in) :: string
    CHARACTER, INTENT(in) :: ch
    CHARACTER(:), ALLOCATABLE :: stripped

    IF (LEN(string)==1) THEN
       IF (string==ch) THEN 
          stripped = ''
       ELSE
          stripped = string
       END IF
    ELSE
       IF (string(1:1)==ch) THEN
          stripped = stripper(string(2:),ch)
       ELSE
          stripped = string(1:1)//stripper(string(2:),ch)
       END IF
    END IF
  END FUNCTION stripper

InformationsquelleAutor High Performance Mark

Können Sie versuchen, diese:

program test
!erase blank space in a string
!run over every character of the string and just take every non-blank in other variable.

implicit none

character (len=100) str1,str2
integer i

str2=''                          !in this variable will be save non-blank spaces  
str1='   a   b   c  de   '            !Test string with blank spaces

write(*,*)len_trim(str1), str1

do i=1,len(str1)   
   if (str1(i:i).ne.' ')str2=trim(str2)//trim(str1(i:i))   
end do

write(*,*)len_trim(str2), str2

end

InformationsquelleAutor Cesar Augusto Perez

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.