作者: espresso1 2020-03-07 21:14:00
如一楼所述,可以开启档案后先以字串方式读取,有特殊符号的地方用空白取代后,写进另一个新的只有单纯数字的档,然后 rewind 重新读取数字放进阵列,例如:doread (11, '(a)', iostat = ios) stringif (ios /= 0) exitdo i = 1, len_trim(string)if (string(i:i) == '>' .or. string(i:i) == '<')end dowrite (21, '(a)') trim(string)end dorewind (21)