program read_hex

implicit none
character(len=80) :: line="3 5  F6F  1d 0 0"
character(len=80) :: buff, hex_str, fm
integer, dimension(3) :: hex
integer :: str_len, i, first, last

buff = adjustl(line)
str_len = len_trim(buff)

!! remove the extra space in the string
do i=1,str_len-1
   if (buff(i:i) == ' ' .and. buff(i+1:i+1) == ' ') buff(i:) = buff(i+1:)
end do

!! extract the hexadecimal constant
first = 1
do i=1,3
   first = index(buff(first:), ' ') + first - 1
   last = index(buff(first+1:), ' ') + first
   hex_str = buff(first+1:last-1)
   write(fm, '(a,i0,a)') '(Z', len_trim(hex_str), ')'
   read(hex_str, fm) hex(i)
   first = last
end do

!! hexadecimal to decimal constrant, and output...
write(*,*) hex

end program read_hex

512396Â¥: Originally posted by snoopyzhao at 2011-07-21 09:58:42
¿´Õâ¸öÒâ˼£¬ÊÇ´Ó6¸ö16½øÖƵÄÊý¾ÝÖУ¬¶ÁÈ¡ÆäÖеÄÈý¸ö£¬È»ºó·µ»Ø3¸ö¶ÔÓ¦µÄÊ®½øÖÆÊý£¬ÊÇ°É£¿

5Â¥: Originally posted by david830wu at 2011-07-18 13:08:23
àÅ£¬ÎÒÕâ¸öÎÊÌâÒѾ­½â¾öÁË£º
Buffer = "3  2a  5  f0  0  0"  ! ¾ÍÊÇ˵2a, 5, f0ΪÈý½ÇÍø¸ñµÄÈý¸ö½ÚµãµÄË÷Òý£¬¾ÍÊÇËùÒªµÄÊý¾Ý£¬³ÌÐòÈçÏ£º
        !------------------------------------------------------- ...

11Â¥: Originally posted by snoopyzhao at 2011-07-21 11:45:11
¸øÒ»¸öÎÒдµÄ Fortran 90 °æ±¾µÄ³ÌÐò£¬Ã»ÓмÓÇ°ÃæµÄ×¼±¸×Ö·û´®²¿·Ö£¬ºÇºÇ£¬Ï£Íû²»ÄѶ®Àí½â¡­¡­


program read_hex

implicit none
character(len=80) :: line="3 5  F6F  1d 0 0"
character(len=80) :: buf ...