我手把手教你如何在UltraEdit高亮显示FORTRAN语法.docVIP

我手把手教你如何在UltraEdit高亮显示FORTRAN语法 关于在UltraEdit中高亮显示FORTRAN语法的帖子很多，很多，搜索一看，全是一样的东西。原创的精神值得学习，但是后面复制粘贴的人可就一点道德都没有了。你也不看看人家写的对不对，一看帖子名称对自己有用，就直接copy过来。我估计copy之后根本就没有在UltraEdit中使用过FORTRAN，要不然怎么不去改正错误？以下是我给出的安装方法：【准备】1——UltraEdit_15.0.0.1047，简体中文版。[基于本人的安装实践，请一定要下载安装版的]2——Fortran 90，请使用右键另存为，保存的结果是fortran.uew。【如果你点击进入的话，会看到以下内容】 /L20Fortran 90 FORTRAN_LANG Line Comment = ! $ Nocase String Chars = FORTRAN_LANG File Extensions = F90 F77 FOR FTN F/Delimiters = ~!@%^*()-+=|\/{}[]:; ,/Function String = %[ ^t]+^{PROGRAM^}^{SUBROUTINE^}*$/Function String 1 = %[ ^ta-zA-Z0-9]++FUNCTION[ ^t]++[a-zA-Z_0-9]+[(]+*/Indent Strings = THEN ELSE DO FORALL/Unindent Strings = ENDIF ENDDO END IF END DO/C1StatementsADMIT ALLOCATABLE ALLOCATE ASSIGN ASSIGNMENT ATBACKSPACE BLOCKCALL CASE CHARACTER CLOSE COMMON COMPLEX CONTAINS CONTINUE CYCLEDATA DEALLOCATE DEFAULT DIMENSION DO DOUBLEELSE ELSEIF ELSEWHERE END ENDDO ENDFILE ENDIF ENDWHILE ENTRY EQUIVALENCE EXECUTE EXIT EXTERNALFORALL FORMAT FUNCTIONGO GOTO GUESSIF IMPLICIT IN INOUT INQUIRE INTEGER INTENT INTERFACE INTRINSICKINDLOGICAL LOOPMAP MODULENAMELIST NONE NULLIFYONLY OPEN OPERATOR OPTIONAL OTHERWISE OUTPARAMETER POINTER PRIVATE PROCEDURE PROGRAM PUBLICQUITREAD REAL RECORD RECURSIVE REMOTE RESULT RETURN REWINDSAVE SELECT SEQUENCE STOP STRUCTURE SUBROUTINETARGET THEN TO TYPEUNION UNTIL USEWHERE WHILE WRITE/C2Intrinsic Operators.AND. .EQ. .EQV. .GE. .GT. .LE. .LT. .NE. .NEQV. .NOT. .OR./C3FunctionsABS ACHAR ACOS ADJUSTL ADJUSTR AIMAG AINT ALL ALLOCATED ANINT ANY ASIN ASSOCIATED ATAN ATAN2BIT_SIZE BREAK BTESTCARG CEILING CHAR CMPLX CONJG COS COSH COUNT CSHIFTDATE_AND_TIME DBLE DIGITS DIM DOT_PRODUCT DPROD DVCHKEOSHIFT EPSILON ERROR EXP EXPONENTFLOOR FLUSH FRACTIONGETCLHUGEIACHAR IAND IBCLR IBITS IBSET ICHAR IEOR INDEX INT INTRUP INVALOP IOR IOSTAT_MSG ISHFT ISHFTCLBOUND LEN LEN_TRIM LGE LGT LLE LLT LOG LOG10MATMUL MAX MAXEXPONENT MAXLOC MAXVAL MERGE MIN MINEXPONENT MINLOC MINVAL MOD MODULO MVBITS