我想在制表符处分割一行并将逗号读取为字符。我尝试遵循此类解决方案,使用pos
包含“\t”或“”的变量,但它返回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