1--234 是列1的内容
235-333  是列2的内容
334-最后  是列3的内容

vfp字符型字段最多导入254个字符，本例 达到 720

先把文本导入到备注字段，在按长度分别导出这三个字段内容，能行不？

CLEAR
Str1 = "人发可个方和方经品他三方登1山泛水多福多寿辅导费对方01234567890"

? CutStr(str1,31)
? CutStr(31,31)

FUNCTION CutStr(cStr1,nLen1,nAdd)
LOCAL N1,cStr2

*!* 强行将参数值转换为字符串，并去掉字符串右边的空格
cStr1 = RTRIM(TRANSFORM(cStr1))

*!* 长度参数错误或者大于字符串长度，取字符串最大长度
N1 = LEN(cStr1)
nLen1 = IIF(TYPE("nLen1") # "N",N1,IIF(nLen1>N1,N1,nLen1))

*!* 截取的最后一个字符是半个双字节时，是舍去还是保留
nAdd = IIF(TYPE("nAdd") # "N",0,IIF(nAdd = 1,1,0))

if N1 > nLen1
   LOCAL i,nCount
   nCount = 0
   *!* 计算字符是双字节还是单字节，是第1位还是第2位
   FOR i=1 TO nLen1
       IF ISLEADBYTE(SUBSTR(cStr1,i,1)) = .T. &&判断双字节时计数 +1
          nCount = nCount + 1
       ENDIF
   ENDFOR

   IF ISLEADBYTE(SUBSTR(cStr1,i,1)) = .T. &&判断是不是双字节
      IF MOD(nCount,2)=0 &&判断是否双字节的第2位
         cStr2=SUBSTR(cStr1,1,nLen1)
      ELSE
         cStr2=IIF(nAdd = 0,SUBSTR(cStr1,1,nLen1-1),SUBSTR(cStr1,1,nLen1+1))
      ENDIF
   ELSE  
      cStr2=SUBSTR(cStr1,1,nLen1)
   ENDIF
ELSE
   cStr2 = cStr1   
ENDIF

RETURN cStr2
ENDFUNC

帮看下，是否可行？ 有需改动的地方没？

这个是平均截取的？ 按
,1,234)
,235,100)
,335)  呢？

看了，测试后可行。问下：
含有不定长双字节字符，不影响吧？

原数据内容
016439156000001975344000001975344C00000022482120180503**** 女士                     辽宁省****市****区水********府***号                         　　　                                                                                    1210006282 6100 2000 003220180408000001879049C000000210000000000030318000000000000C000000275977EM0+      辽宁省**市***路***号        　　　　                                                                                                                  12121800000000000000000000000000000198703FC     10        0003                                    210703198703272049000000430200        20120920100000072012001     0100020                    00000000000009240000000000                                                                                                                                                   
016439156000000013000000000013000C00000000500020180503****** 先生                   辽宁省***市                 ******县                                                                                                                  1210006282 6100 2009 077720180408000000000000C000000000000000000000000000000000000C000000013000LT0+                                                                                                                                                                  00000000000000000000000000010198101MC     10        0003                                    210726198101152511000005950100        1803270110500160            0100020                    00000000000002440000000000    **县****管理所