fortran - 在制表符处分割线

Question

我想在制表符处分割一行并将逗号读取为字符。我尝试遵循此类解决方案，使用包含“\t”或“”的 pos 变量，但它返回 0，因此它找不到任何选项卡。哪个可能是正确的解决方案？

INTEGER :: i, dots, commas, A, T, C, G, InDel, M, Z, L, s, sf, numsize, InDelSlide, pos, base, cov
CHARACTER(len=1) :: ref
CHARACTER(len=10000) :: arg, seq, qual
CHARACTER(len=1024) :: buffer
CHARACTER(len=6) :: num
CHARACTER(len=5) chr

READ(5,'(A)') buffer
PRINT *, buffer
pos = INDEX(buffer, "   ")
arg = buffer(1:pos-1)
READ(buffer(pos+1:), *) chr, base, ref, cov, seq, qual

Answer 1

Fotran 中的制表符就是 achar(9)。使用

pos = INDEX(buffer, achar(9))

achar() 函数返回一个带有您传递给它的 ASCII 值的字符。