Làm cách nào để viết hàm to_upper() hoặc to_lower() trong F90?

Question

Làm thế nào để viết một hàm F90 (Intel) chuyển đổi chuỗi thành chữ thường (hoặc, cách khác, chữ hoa)? Tôi muốn chuyển một mảng ký tự vào hàm và nó trả về một mảng ký tự, ví dụ:

program main 
    implicit none 

    character*32 :: origStr = "Hello, World!" 
    character*32 :: newStr 

    newStr = to_lower(origStr) 
    write (*,*) newStr 

end program main 

sao cho chương trình này xuất kết quả hello, world!.

Tôi đã bắt đầu với chương trình con to_lower() được tìm thấy tại RosettaCode, nhưng tôi không thể tìm ra cách viết nó như một hàm.

Cảm ơn trước!

PS - Điểm thưởng nếu bạn có thể làm điều đó với một chuỗi có độ dài không cố định!

Answer 1

Là tác giả ban đầu của mã này, tôi rất vui vì đó là một số trợ giúp. Tôi đã từng tự hỏi tại sao những chức năng này không được xây dựng ở Fortran. Tôi đoán là họ chỉ làm việc cho một tập hợp các chữ cái khá hạn chế, tức là những chữ cái được sử dụng bằng tiếng Anh. Nếu bạn có văn bản trong hầu như bất kỳ ngôn ngữ châu Âu nào khác, bạn sẽ có các ký tự có dấu trọng âm và sau đó chuyển đổi chúng thành chữ hoa hoặc chữ thường thì khó hơn nhiều. Ví dụ e-grave trong tiếng Pháp biến thành chữ hoa thường được thể hiện như là chỉ đơn giản E (dấu mộ bị mất), nhưng trong e-cấp nó không. Các nhà thiết kế của Fortran luôn cố gắng cung cấp các cơ sở phù hợp với nhiều ngôn ngữ, và thực hiện chuyển đổi chữ hoa/chữ thường theo cách đa ngôn ngữ không hề dễ dàng. Ít nhất đó là dự đoán của tôi là tại sao bạn phải tự mình làm điều đó.

Answer 2

Wow - mặc dù tôi đã tìm kiếm trong hơn một giờ, ngay sau khi đăng bài này, tôi đã tìm thấy câu trả lời here (trong "Mẹo và gợi ý Fortran khác").

Mã Tôi đã từng là như sau (đối với to_upper):

function to_upper(strIn) result(strOut) 
! Adapted from http://www.star.le.ac.uk/~cgp/fortran.html (25 May 2012) 
! Original author: Clive Page 

    implicit none 

    character(len=*), intent(in) :: strIn 
    character(len=len(strIn)) :: strOut 
    integer :: i,j 

    do i = 1, len(strIn) 
      j = iachar(strIn(i:i)) 
      if (j>= iachar("a") .and. j<=iachar("z")) then 
       strOut(i:i) = achar(iachar(strIn(i:i))-32) 
      else 
       strOut(i:i) = strIn(i:i) 
      end if 
    end do 

end function to_upper 

Hope this helps ai đó!

Answer 3

Đây là một loại không dựa vào các đại diện ASCII

Pure Function to_upper (str) Result (string) 

! ============================== 
! Changes a string to upper case 
! ============================== 

    Implicit None 
    Character(*), Intent(In) :: str 
    Character(LEN(str))  :: string 

    Integer :: ic, i 

    Character(26), Parameter :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
    Character(26), Parameter :: low = 'abcdefghijklmnopqrstuvwxyz' 

! Capitalize each letter if it is lowecase 
    string = str 
    do i = 1, LEN_TRIM(str) 
     ic = INDEX(low, str(i:i)) 
     if (ic > 0) string(i:i) = cap(ic:ic) 
    end do 

End Function to_upper 

Bạn có thể dễ dàng thay đổi này để to_lower bằng cách chuyển các dây thấp và nắp trong vòng lặp.