Function Keyword (STR)
X = "
Action, AFGREGATE, ALL, ALTER, AFTER, AND, AS, ASC, AVG, AVG_ROW_LENGTH, AUTO_INCREMENT, BETWEEN, BIGINT, BIT, BINARY, BLOB, BOOL, BOTH, BY, CASCADE, CASE, CHAR, CHARACTER, CHANGE, check, checksum, column, columns, comment, constraint, create, cross, current_date, current_time, current_timestamp, data, database, databases, date, datetime, day, day_hour, day_minute, day_second, dayofmonth, dayofweek, dayofyear, dec, decimal, default, delayed, delay_key_write, delete, desc, describe, distinct, distinctrow, double, drop, end, else, escape, escaped, enclosed, enum, explain, exists, fields, file, first, float, float4, float8, flush, foreign, from, for, full, function, global, grant, grants, group, having, heap, high_priority, hour, hour_minute, hour_second, hosts, identified, ignore, in, index, infile, inner, insert, insert_id, int, INTEGER, INTERVAL, INT1, INT2, INT3, INT4, Int8, Into, IF, IS, ISAM, JOIN, Key, Keys, LEFT, LAST_ISERT_ID, LEPING, LEFT, LOENGTH, LOCAL, LINES, LIMIT, LOAD, LOCAL, LOCK, Logs, Long, Longblob, Longtext, Low_Priority, Max, Max_Rows, Match, Mediumblob, MediumText, Mediumint, Middleint, Min_Rows , Minute, minute_second, modify, month, monthname, myisam, natural, numeric, no, not, null, on, optimize, option, optionally, or, order, outer, outfile, pack_keys, partial, password, precision, primary, procedure , process, processlist, privileges, read, real, references, reload, regexp, rename, replace, restrict, returns, revoke, rlike, row, rows, second, select, set, show, shutdown, smallint, soname, sql_big_tables, sql_big_selects , sql_low_priority_updates, sql_log_off, sql_log_update, sql_select_limit, sql_small_result, sql_big_result, sql_warnings, straight_join, starting, status, string, table, tables, temporary, terminated, text, then, time, timestamp, tinyblob, tinytext, tinyint, trailing, to, type , USE, Using, UNIQUE, UNLOCK, UNSIGNED, Update, Usage, Values, VARCHAR, VARIABLES, VARYING, VARBINARY, WITH, WHEN, WHEN, WHERE,
Year, Year_Month, Zerofill "Y = Split (x,", ")
For i = 0 to ubound (y)
IF Trim (STR) = Y (i) THEN
Keyword = y (i) & "belongs to the word"
EXIT for
Else
Keyword = STR & "Does not belong to the word"
END IF
NEXT
ERASE Y
MsgBox (keyword)
END FUNCTION
Sub Button1_onclick
DIM THEFORM
Set theform = document.validform
IF len (Trim (Trim (Text1.Value) <= 0 THEN
Msgbox "Please enter"
Else
Keyword (Theform.Text1.Value)
END IF
End Sub
->
Script>
HEAD>