文書番号: 410525
最終更新日: 1999/03/18
FUNCTION TabConv (InText AS STRING) AS STRING DIM OutText AS STRING DIM SpcCnt AS INTEGER DIM i AS INTEGER OutText = "" FOR i = 1 TO LEN(InText) IF ASC(MID$(InText, i, 1)) <> 9 THEN OutText = OutText + MID$(InText, i, 1) ELSE SpcCnt = 8 - (LEN(OutText) MOD 8) OutText = OutText + STRING$(SpcCnt, " ") END IF NEXT i TabConv = OutText END FUNCTION
Keywords: KBHOWTO VBDOS KB410525
Technology: kbAudDeveloper kbVBSearch kbZNotKeyword3