如题，有附件中“原始座次表.TXT”，现在希望用vfp编程将其旋转180度，使之成为“目标座次表.TXT”中的格式。请问如何实现？
                                                

 

[此贴子已经被作者于2016-1-26 10:02编辑过]

1、行变化是升序变降序，索引一下就可以。
2、字段从左右向中间逐个对调
    FOR i = 1 TO 字段数/2
        保存字段i
        字段(i) = 字段(字段数-i+1)
        字段(字段数-i+1) = 保存字段i
    ENDFOR

楼主也太省心了，你应该自己将TXT中的原始数据转换为DBF。
假设源表为 Source.dbf，共有Fld01 到 Fld11 共 11 个字符型字段，其中 Fld01 保存的是第几排，第Fld02-Fld11保存的是姓名。
目标表为 Target.dbf，结构与源表相同。参考如下代码：

CLOSE TABLES all
USE target IN 0
ZAP IN target
SELECT 0
USE source
nRecNum = RECCOUNT()
nFldNum = FCOUNT()
FOR i = nRecNum TO 1 STEP -1
    GO i
    cValue = EVALUATE(FIELD(1))
    INSERT INTO target (fld01) VALUES (cValue)
    FOR j = 2 TO nFldNum
        cValue = EVALUATE(FIELD(nFldNum-j+2))
        REPLACE (FIELD(j)) WITH cValue IN target
    NEXT
NEXT
SELECT target
GO TOP
BROWSE

就是来要代码的

因为功力不足，或者说火候欠缺，有些问题只能是要代码救急的

好鱼者众，施鱼者也不少哦，反正都是愿者上钩。

有时候阴天　　膀子酸　　不活动活动　　还真难受　　呵呵。。。。。

感谢大家，不懂才来问的哈，我不是专业编程人员，只是业余爱好弄点VFP代码。

Set Headings Off
Create Cursor MyTest (F1 C(10), F2 C(8), F3 C(8), F4 C(8), F5 C(8), ;
    F6 C(8), F7 C(8), F8 C(8), F9 C(8), F10 C(8), F11 C(8))
Append From 原始座次表.txt Delimited With Tab For !Empty(F1)
Select Left(F1, 10) + Left(F11, 8) + Left(F10, 8) + Left(F9, 8) + ;
    left(F8, 8) + Left(F7, 8) + Left(F6, 8) + Left(F5, 8) + ;
    left(F4, 8) + Left(F3, 8) + Left(F2, 8) + " " ;
    From MyTest Order By F1 Desc To File 目标.txt
Modify File 目标.txt

CLOSE DATABASES
  CREATE TABLE 表2(A0 C(10),A1 C(7),A2 C(7),A3 C(7),A4 C(7),A5 C(7),A6 C(7),A7 C(7),A8 C(7),A9 C(7),A10 C(7))
   APPEND FROM 原始座次表.TXT DELIMITED WITH TAB FOR NOT EMPTY(a0)
    SELECT a0,a10 as a1,a9 as a2,a8 as a3,a7 as a4,a6 as a5,a5 as a6,a4 as a7,a3 as a8,a2 as a9,a1 as a10 FROM 表2 ORDER BY a0 DESC INTO TABLE 表3
     SELECT 表3
    DO whil NOT EOF()
     ma1=a1
     ma2=a2
     ma3=a3
     ma4=a4
     ma5=a5
     ma6=a6
     ma7=a7
     ma8=a8
     ma9=a9
     ma10=a10
   IF ALLTRIM(a0)='【第8排】'
     REPLACE a1 WITH ma3,a2 WITH ma4,a3 WITH ma5,a4 WITH ma6,a5 WITH ma7,a6 WITH ma8,a7 WITH ma9,a8 WITH ma10,a9 WITH ma1,a10 WITH ma2
   ENDIF
  IF EOF()
    EXIT
  ENDIF
  SKIP

 ENDDO
COPY TO 目标座次表.TXT SDF