UltraEdit 中FORTRAN 代码高亮

topmad

<SPAN p

【转帖+修改】 希望对大家有用

    所有编程的人，都应该用到ultraedit这一利器，但在UltraEdit中，却没有代码的高亮，着实叫人看的难受，高亮显示FORTRAN语法的帖子很多，很多，搜索一看，全是一样的东西。原创的精神值得学习，但是后面复制粘贴的人可就一点道德都没有了。以下是我给出的安装方法：
【准备】
1——UltraEdit_15.0.0.1047，简体中文版。最好是安装版的

2复制下面的蓝色部分

/L20"Fortran 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"
/C1"Statements"
ADMIT ALLOCATABLE ALLOCATE ASSIGN ASSIGNMENT AT
BACKSPACE BLOCK
CALL CASE CHARACTER CLOSE COMMON COMPLEX CONTAINS CONTINUE CYCLE
DATA DEALLOCATE DEFAULT DIMENSION DO DOUBLE
ELSE ELSEIF ELSEWHERE END ENDDO ENDFILE ENDIF ENDWHILE ENTRY EQUIVALENCE EXECUTE EXIT EXTERNAL
FORALL FORMAT FUNCTION
GO GOTO GUESS
IF IMPLICIT IN INOUT INQUIRE INTEGER INTENT INTERFACE INTRINSIC
KIND
LOGICAL LOOP
MAP MODULE
NAMELIST NONE NULLIFY
ONLY OPEN OPERATOR OPTIONAL OTHERWISE OUT
PARAMETER POINTER PRIVATE PROCEDURE PROGRAM PUBLIC
QUIT
READ REAL RECORD RECURSIVE REMOTE RESULT RETURN REWIND
SAVE SELECT SEQUENCE STOP STRUCTURE SUBROUTINE
TARGET THEN TO TYPE
UNION UNTIL USE
WHERE WHILE WRITE
/C2"Intrinsic Operators"
.AND. .EQ. .EQV. .GE. .GT. .LE. .LT. .NE. .NEQV. .NOT. .OR.
/C3"Functions"
ABS ACHAR ACOS ADJUSTL ADJUSTR AIMAG AINT ALL ALLOCATED ANINT ANY ASIN ASSOCIATED ATAN ATAN2
BIT_SIZE BREAK BTEST
CARG CEILING CHAR CMPLX CONJG COS COSH COUNT CSHIFT
DATE_AND_TIME DBLE DIGITS DIM DOT_PRODUCT DPROD DVCHK
EOSHIFT EPSILON ERROR EXP EXPONENT
FLOOR FLUSH FRACTION
GETCL
HUGE
IACHAR IAND IBCLR IBITS IBSET ICHAR IEOR INDEX INT INTRUP INVALOP IOR IOSTAT_MSG ISHFT ISHFTC
LBOUND LEN LEN_TRIM LGE LGT LLE LLT LOG LOG10
MATMUL MAX MAXEXPONENT MAXLOC MAXVAL MERGE MIN MINEXPONENT MINLOC MINVAL MOD MODULO MVBITS
NBREAK NDPERR NDPEXC NEAREST NINT NOT
OFFSET OVEFL
PACK PRECFILL PRECISION PRESENT PRODUCT PROMPT
RADIX RANDOM_NUMBER RANDOM_SEED RANGE REPEAT RESHAPE RRSPACING
SCALE SCAN SEGMENT SELECTED_INT_KIND SELECTED_REAL_KIND SET_EXPONENT SHAPE SIGN SIN SINH SIZE SPACING SPREAD SQRT SUM SYSTEM SYSTEM_CLOCK
TAN TANH TIMER TINY TRANSFER TRANSPOSE TRIM
UBOUND UNDFL UNPACK
VAL VERIFY
/C4"I/O statements"
ASSIGN
BACKSPACE
CLOSE
ENDFILE
OPEN
PAUSE PRINT
READ REWIND
WRITE
/C5"File Status"
ACCESS ACTION
BLANK BLOCKSIZE
CARRIAGECONTROL
DIRECT
ERR EXIST
FILE FMT FORM FORMATTED FROM
IOSTAT
LOCATION
NAME NAMED NEXTREC NUMBER
OPENED
POSITION
RECL RECORDTYPE
SEQUENTIAL STAT STATUS
UNFORMATTED UNIT
/C6"Preprocessor"
INCLUDE
/C7"Operators"
==
=
<
>
+
*
^
-
// /
!
&

复制这些蓝色部分文本，粘贴到文本文档中，然后将其保存，fortran.uew。

【步骤】
1——安装UltraEdit_15.0.0.1047，【本人默认安装在C盘了】

【注：如果你没有第一个文件夹的话，也是正常的，不用担心】
2——显示系统所有文件，寻找路径C:\Documents and Settings\你的用户名\Application Data\IDMComp\UltraEdit\wordfiles

3——将已经下载的或者保存好的fortran.uew存在此文件夹[wordfiles]中

4——打开安装好的UltraEdit，如下图操作。

此时就确定了高亮显示的文本时FORTRAN了
5——建立文档，书写fortran程序，看看是否成立。

6——颜色是可以定制的，
点击【高级】——【配置】，出现下面图。点击打开【编辑器显示】，出现2图

颜色组里面可以定制颜色

至此，UltraEdit 中可以高亮显示FORTRAN语法了。

可以根据自己的特点  定义不同的颜色（fortran中不同类别的代码颜色不同）

可以根据下拉表中的内容，修改不同类的代码颜色了

为了方便其他不适用FORTRAN但是也想高亮显示自己相应的语言语法，给出官方网站语言支持列表的地址。
点击进入

有的朋友反映按照上面的路径更改后，高亮列表里面没有fortran选项，可以试一下下面的方法 在地址栏里面输入  

%appdata%\IDMComp\UltraEdit\wordfiles
进入相应的文件夹，然后把高亮文件复制到该文件夹即可

蓝月亮

钱比较少，别介意

godenflame135

很有实用意义吗，我找了好久。

Jennifer

现在就去试试看。谢谢楼主分享。

jamce

UE高手，相当佩服。

天上两朵Cb云

求问楼主附件在哪里………………

topmad

天上两朵Cb云 发表于 2014-2-28 10:05

                               
登录/注册后可看大图

求问楼主附件在哪里………………

我有说有附件了吗

天上两朵Cb云

topmad 发表于 2014-2-28 11:34
我有说有附件了吗

学渣看错了…… 楼主已经分享了，我试试看

chinagod

http://www.ultraedit.com/downloads/extras/wordfiles.html
这是给出的官方下载地址

Effy_yue

楼主好人，有用