program main
implicit none
integer :: i, j, k
character(len=100) :: str, c
str = " abc , 12334 'a b' "
do i = 1, len_trim(str)
read( str, fmt = *, iostat = j ) ( c, k = 1, i )
print*, c
if ( j /= 0 ) then
print*, i-1 !// 字符串个数
exit
end if
end do
end program main