在制表符处分割线

Question

我想在制表符处分行并将逗号读作字符。我试图遵循这种解决方案，使用包含“\t”或“”的 pos 变量，但它 returns 我 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

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

pos = INDEX(buffer, achar(9))

achar() 函数 returns 一个具有您传递给它的 ASCII 值的字符。

在制表符处分割线

Split line at the tab character

fortran

delimiter