请教如何写代码将以下名单转换成每行16个名字？
高81级（1978—1981） （1—3班）   计175人            
班主任    张朝明        
高81级    高81级(1)58人        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
    ……   
            
班主任    黄万勋        
高81级    高81级(2)61人        
    胡天德        
    陈德贵        
    何志银        
    何笃安        
    杜进        
    周艳霞        
    杜启文        
    甘功文        
    ……        
   
    （……处有若干名字）
要解决的问题：
1.“班主任    XXX ”“高81级    高81级(2)61人”等字符不能跟姓名一行；
2.学生名单按照每行16人显示，每两人之间用空格隔开；
3.因为有些学生姓名中只有两个汉字，要想跟三个字的名单对齐，得处理成跟三字名字一样，如“杜金”要处理为“杜  金”（中间有空格）。


请各位大神相助，谢谢！

数据已经上传，其中的DBF文件中只有一列数据，希最终显示的txt文件中格式如下：

高81级（1978—1981） （1—3班）   计175人            
班主任    张朝明        高81级    高81级(1)58人     
 张小川    刘筱芳    黄乾坤     肖青贵     xxxx   　 xxxx  　　 xxxx　　……    （一共16个姓名，每个姓名间相同个数的空格分隔）
 xxxx  　　xxxx  　　 xxxx  　　xxxx 　　　xxxx 　　　……      ……     ……    （一共16个姓名，每个姓名间相同个数的空格分隔）


班主任    黄万勋        
高81级    高81级(2)61人        
 胡天德        陈德贵        何志银         何笃安         杜进         周艳霞    ……    （一共16个姓名，每个姓名间相同个数的空格分隔）

…………

另外说一点，如果遇到姓名为两个字的，就在两个字的中间增加空格，以便显示为三个汉字，这样可与上面一行对齐。

还望大神相助。[b][b]

[ 本帖最后由 IHORSE 于 2015-8-15 11:13 编辑 ]

说的太模糊了

这神马名单 是从何处而来   转化后 又要去向何方

上传文件看看，最后显示格式。

具体不明，既然用空格分隔姓名，又要在姓名中插入空格，只好用汉字库全角空格试试。
测试代码，看看是不是这意思？

** 测试数据
TEXT TO cText NOSHOW
班主任    张朝明        
高81级    高81级(1)58人        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
    张小川        
    刘筱芳        
    黄乾坤        
    肖青贵        
            
班主任    黄万勋        
高81级    高81级(2)61人        
    胡天德        
    陈德贵        
    何志银        
    何笃安        
    杜进        
    周艳霞        
    杜启文        
    甘功文      
    胡天德        
    陈德贵        
    何志银        
    何笃安        
    杜进        
    周艳霞        
    杜启文        
    甘功文      
    胡天德        
    陈德贵        
    何志银        
    何笃安        
    杜进        
    周艳霞        
    杜启文        
    甘功文      
ENDTEXT
j = 1
xm = ""
FOR i = 1 TO ALINES(aText, cText)
    IF !EMPTY(aText(i))
        IF LIKEC("*班主任*", aText(i)) OR LIKEC("*高*级*", aText(i))
            IF !EMPTY(xm)
                ? SUBSTR(xm, 2)
                j = 1
                xm = ""
            ENDIF
            ? aText(i)
        ELSE
            aText(i) = ALLTRIM(aText(i))
            IF LENC(aText(i)) == 2
                aText(i) = LEFT(aText(i),2) + 0hA1A1 + RIGHT(aText(i),2) 
            ENDIF
            xm = xm + " " + aText(i)
            j = j + 1
            IF j > 16
                ? SUBSTR(xm, 2)
                j = 1
                xm = ""
            ENDIF
        ENDIF
    ENDIF
ENDFOR
IF !EMPTY(xm)
    ? SUBSTR(xm, 2)
ENDIF

上传数据吧，也许我可以帮你解决。

上传数据看看

这是输出的排列问题，应该不复杂。
钻点牛角尖：两个汉字的名字统一转换成三个汉字（中间加空格），那么四个及四个以上汉字的名字如何处理呢？

输出时用PADR()转换显示格式

我研究了你的问题，写了一个简单的程序，可以满足你的要求。
使用方法：在VFP中打开数据表后，运行“程序1”即可看到结果，所生成的文本文件可以全选复制到word中进行编辑，如果需要输出表格，不能用这个程序，得用另外一种处理方法。
private aLL
set talk off
set safety off
set color to +7/1
clear
copy to lszjk
use lszjk
replace all name with chrtranc(name,"  ","")
alter table lszjk alter column name C(130)
cxhh=1
dhzd=""
do while .not.eof()
if len(trim(name))<8
if cxhh<=16
if .not.eof()
if len(trim(name))=4
dhzd=dhzd+left(trim(name),2)+space(2)+right(trim(name),2)+space(2)
else
dhzd=dhzd+trim(name)+space(2)
endif
cxhh=cxhh+1
delete
skip
endif
else
replace name with dhzd
cxhh=1
dhzd=""
endif
else
if trim(dhzd)<>""
skip-1
recall
replace name with dhzd
skip
cxhh=1
dhzd=""
endif
skip
endif
enddo
skip-1
recall
replace name with dhzd
pack
list to ls.txt off
modi file ls.txt
return



[ 本帖最后由 沙枣 于 2015-8-17 16:03 编辑 ]

PADL( ) 函数从左边插入填充值，PADR( ) 函数从右边插入填充值，PADC( ) 函数从两边插入填充值。

在左边、右边或两边同时填充空格好像都不符合中文习惯啊，怎么实现在中间填充空格，实现如下效果：

王五五
张  三