RPGLE作为AS400系统上的开发语言，由于是按列号对齐写法的，IF条件的一多，查ENDIF要死过去。。。

所以，拿UltraEdit做了个ftp下载编辑上传的功能，这样就可以直接在UE上编辑查看了。

上传下载的bat就不贴了，比较简单。把UE中新增RPGLE语言语法的wordfile一段贴出来吧。

试一下，代码折叠功能，嘿嘿，查IF...ENDIF是不是容易多啦？

/L14"RPGLE" Nocase Line Comment = * Line Comment Valid Columns = [7] String Chars = "' File Extensions = RPG RPGLE
/Delimiters = *~!@^&$()+=|\/{}[]:;"'<> , .?
/Open Brace Strings = "{" "(" "["
/Close Brace Strings = "}" ")" "]"
/Open Fold Strings = "IF" "DO" "IFEQ" "IFNE" "IFLT" "IFGT" "IFLE" "IFGE" "BEGSR" "DOWEQ" "DOWNE" "DOWGT" "DOWLT" "DOWGE" "DOWLE" "SELECT" "DOUEQ" "DOUNE" "DOUGT" "DOULT" "DOUGE" "DOULE" "CAS" "CASEQ" "CASNE" "CASGT" "CASLT" "CASGE" "CASLE"
/Close Fold Strings = "ENDIF" "ENDDO" "ENDIF" "ENDIF" "ENDIF" "ENDIF" "ENDIF" "ENDIF" "ENDSR" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDSL" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDDO" "ENDCS" "ENDCS" "ENDCS" "ENDCS" "ENDCS" "ENDCS" "ENDCS"
/C1"Statements" STYLE_STATEMENT
*ENTRY *LIKE
ACQ ADD ADDDUR ANDEQ ANDNE ANDLT ANDGT ANDLE ANDGE
BEGSR BITOFF BITON
CALL CALLB CAB CABEQ CABNE CABLT CABGT CABLE CABGE CAS CASEQ CASNE CASLT CASGT CASLE CASGE CAT CHAIN CHECK CHECKR CLEAR CLOSE COMMIT COMP
DEFINE DELETE DIR DIV DO DOWEQ DOWNE DOWGT DOWLT DOWGE DOWLE DOUEQ DOUNE DOUGT DOULT DOUGE DOULE DSPLY DUMP
ELSE END ENDCS ENDDO ENDIF ENDSL ENDSR ENDPGM EVAL EXCEPT EXFMT EXSR EXTRCT
FEOD FORCE
GOTO
IF IFEQ IFNE IFGT IFLT IFGE IFLE IN ITER
KFLD KLIST
LEAVE LOOKUP
MHHZO MHLZO MLHZO MLLZO MOVE MOVEA MOVEL MULT MVR
NEXT
OCCUR OREQ ORNE ORLT ORGT ORLE ORGE OTHER OUT
PARM PLIST POST
READ READC READE READP READPE REL RESET RETURN ROLBK
SCAN SELECT SETGT SETLL SETON SETOFF SHTDN SORTA SQRT SUB SUBDUR SUBST
TAG TEST TESTB TESTN TESTZ TIME
UNLOCK UPDATE
WHEN WHENEQ WHENNE WHENLT WHENGT WHENLE WHENGE WRITE
XFOOT XLATE
Z-ADD Z-SUB
/C2"Operators" STYLE_OPERATOR
+
-
=
// /
*
>
<
AND
OR
NOT
/C3"Built-in Variables" STYLE_VARIABLE
*ALL *ALLG *ALLX *BLANK *BLANKS *EXT *HIVAL *LOVAL *NONE *NULL *OFF *ON *SRC *ZERO *ZEROS
/C4"Functions" STYLE_FUNCTION
%ADDR %ELEM %PADDR %SIZE %SUBST %TRIM %TRIML %TRIMR
/C5"Keywords" STYLE_KEYWORD
*DATE *DAY *DMY *EQUATE *EUR *FILE *HMS *IN *ISO *JIS *JUL *MDY *MONTH *OMIT *PLACE *USA *YEAR *YMD
ASCEND ALT ALTSEQ
BASED
CONST CTDATA COMMIT CURSYM
DS DIM DTAARA DESCEND DISK DEVID DATEDIT DATFMT DEBUG DECEDIT DFTNAME
EXTNAME EXTFLD EXTIND EXPORT EXTFMT
FROMFILE FORMLEN FORMOFL FORMSALIGN FTRANS
INZ IGNORE INCLUDE INFDS INFSR IMPORT
KEYLOC
MAXDEV
NOOPT
OVERLAY OCCURS OFLIND
PAGE PAGE1 PAGE2 PAGE3 PAGE4 PAGE5 PAGE6 PAGE7 PREFIX PERRCD PRINTER PASS PGMNAME PLIST PRTCTL PACKEVEN PROCPTR
RAFDATA RECNO RENAME
SPECIAL SEQ SAVEDS SAVEIND SFILE SLN
TOFILE TIMFMT
UDATE UDAY UMONTH UYEAR USROPN
WORKSTN

发表于 @ 2009年02月25日　13:52:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:eclipse 3.4 手工下载中文包