Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
spellchecker.cfm
Package: MEIMS.rar [view]
Upload User: ah_jiwei
Upload Date: 2022-07-24
Package Size: 54044k
Code Size: 5k
Category:
ADO-ODBC
Development Platform:
Visual C++
- <cfsetting enablecfoutputonly="true">
- <!---
- This code uses a CF User Defined Function and should work in CF version 5.0
- and up without alteration.
- Also if you are hosting your site at an ISP, you will have to check with them
- to see if the use of <CFEXECUTE> is allowed. In most cases ISP will not allow
- the use of that tag for security reasons. Clients would be able to access each
- others files in certain cases.
- --->
- <!--- The following variables values must reflect your installation. --->
- <cfset aspell_dir = "C:Program FilesAspellbin">
- <cfset lang = "en_US">
- <cfset aspell_opts = "-a --lang=#lang# --encoding=utf-8 -H --rem-sgml-check=alt">
- <cfset tempfile_in = GetTempFile(GetTempDirectory(), "spell_")>
- <cfset tempfile_out = GetTempFile(GetTempDirectory(), "spell_")>
- <cfset spellercss = "../spellerStyle.css">
- <cfset word_win_src = "../wordWindow.js">
- <cfset form.checktext = form["textinputs[]"]>
- <!--- make no difference between URL and FORM scopes --->
- <cfparam name="url.checktext" default="">
- <cfparam name="form.checktext" default="#url.checktext#">
- <!--- Takes care of those pesky smart quotes from MS apps, replaces them with regular quotes --->
- <cfset submitted_text = ReplaceList(form.checktext,"%u201C,%u201D","%22,%22")>
- <!--- submitted_text now is ready for processing --->
- <!--- use carat on each line to escape possible aspell commands --->
- <cfset text = "">
- <cfset CRLF = Chr(13) & Chr(10)>
- <cfloop list="#submitted_text#" index="field" delimiters=",">
- <cfset text = text & "%" & CRLF
- & "^A" & CRLF
- & "!" & CRLF>
- <cfloop list="#URLDecode(field)#" index="line" delimiters="#CRLF#">
- <cfset text = ListAppend(text, "^" & Trim(JSStringFormat(line)), CRLF)>
- </cfloop>
- </cfloop>
- <!--- create temp file from the submitted text, this will be passed to aspell to be check for misspelled words --->
- <cffile action="write" file="#tempfile_in#" output="#text#" charset="utf-8">
- <!--- execute aspell in an UTF-8 console and redirect output to a file. UTF-8 encoding is lost if done differently --->
- <cfexecute name="cmd.exe" arguments='/c type "#tempfile_in#" | "#aspell_dir#aspell.exe" #aspell_opts# > "#tempfile_out#"' timeout="100"/>
- <!--- read output file for further processing --->
- <cffile action="read" file="#tempfile_out#" variable="food" charset="utf-8">
- <!--- remove temp files --->
- <cffile action="delete" file="#tempfile_in#">
- <cffile action="delete" file="#tempfile_out#">
- <cfset texts = StructNew()>
- <cfset texts.textinputs = "">
- <cfset texts.words = "">
- <cfset texts.abort = "">
- <!--- Generate Text Inputs --->
- <cfset i = 0>
- <cfloop list="#submitted_text#" index="textinput">
- <cfset texts.textinputs = ListAppend(texts.textinputs, 'textinputs[#i#] = decodeURIComponent("#textinput#");', CRLF)>
- <cfset i = i + 1>
- </cfloop>
- <!--- Generate Words Lists --->
- <cfset word_cnt = 0>
- <cfset input_cnt = -1>
- <cfloop list="#food#" index="aspell_line" delimiters="#CRLF#">
- <cfset leftChar = Left(aspell_line, 1)>
- <cfif leftChar eq "*">
- <cfset input_cnt = input_cnt + 1>
- <cfset word_cnt = 0>
- <cfset texts.words = ListAppend(texts.words, "words[#input_cnt#] = [];", CRLF)>
- <cfset texts.words = ListAppend(texts.words, "suggs[#input_cnt#] = [];", CRLF)>
- <cfelse>
- <cfif leftChar eq "&" or leftChar eq "##">
- <!--- word that misspelled --->
- <cfset bad_word = Trim(ListGetAt(aspell_line, 2, " "))>
- <cfset bad_word = Replace(bad_word, "'", "'", "ALL")>
- <!--- sugestions --->
- <cfset sug_list = Trim(ListRest(aspell_line, ":"))>
- <cfset sug_list = ListQualify(Replace(sug_list, "'", "'", "ALL"), "'")>
- <!--- javascript --->
- <cfset texts.words = ListAppend(texts.words, "words[#input_cnt#][#word_cnt#] = '#bad_word#';", CRLF)>
- <cfset texts.words = ListAppend(texts.words, "suggs[#input_cnt#][#word_cnt#] = [#sug_list#];", CRLF)>
- <cfset word_cnt = word_cnt + 1>
- </cfif>
- </cfif>
- </cfloop>
- <cfif texts.words eq "">
- <cfset texts.abort = "alert('Spell check complete.nnNo misspellings found.'); top.window.close();">
- </cfif>
- <cfcontent type="text/html; charset=utf-8">
- <cfoutput><html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
- <link rel="stylesheet" type="text/css" href="#spellercss#" />
- <script language="javascript" src="#word_win_src#"></script>
- <script language="javascript">
- var suggs = new Array();
- var words = new Array();
- var textinputs = new Array();
- var error;
- #texts.textinputs##CRLF#
- #texts.words#
- #texts.abort#
- var wordWindowObj = new wordWindow();
- wordWindowObj.originalSpellings = words;
- wordWindowObj.suggestions = suggs;
- wordWindowObj.textInputs = textinputs;
- function init_spell() {
- // check if any error occured during server-side processing
- if( error ) {
- alert( error );
- } else {
- // call the init_spell() function in the parent frameset
- if (parent.frames.length) {
- parent.init_spell( wordWindowObj );
- } else {
- alert('This page was loaded outside of a frameset. It might not display properly');
- }
- }
- }
- </script>
- </head>
- <body onLoad="init_spell();">
- <script type="text/javascript">
- wordWindowObj.writeBody();
- </script>
- </body>
- </html></cfoutput>
- <cfsetting enablecfoutputonly="false">