Подсветка синтаксиса

[alibek]

[Comments]
'

[Strings]
"

[Numbers]
0 1 2 3 4 5 6 7 8 9 0 .

[Keywords]
As
Boolean Byte Integer Long Single Double Currency String Date Variant Object
Form PictureBox Label TextBox Frame CommandButton CheckBox Option Button ComboBox ListBox HScrollBar VScrollBar Image
True False Nothing Empty Null

[Functions]
Abs Array Asc AscB AscW Atn Avg
CBool CByte CCur CDate CDbl Cdec Choose Chr ChrB ChrW CInt CLng Command Cos Count CreateObject CSng CStr CurDir CVar CVDate CVErr
Date DateAdd DateDiff DatePart DateSerial DateValue Day DDB Dir DoEvents
Environ EOF Error Exp
FileAttr FileDateTime FileLen Fix Format FreeFile FV
GetAllStrings GetAttr GetAutoServerSettings GetObject GetSetting
Hex Hour
IIf IMEStatus Input InputB InputBox InStr InstB Int IPmt IsArray IsDate IsEmpty IsError IsMissing IsNull IsNumeric IsObject
LBound LCase Left LeftB Len LenB LoadPicture Loc LOF Log LTrim
Max Mid MidB Min Minute MIRR Month MsgBox
Now NPer NPV
Oct
Partition Pmt PPmt PV
QBColor
Rate RGB Right RightB Rnd RTrim
Second Seek Sgn Shell Sin SLN Space Spc Sqr StDev StDevP Str StrComp StrConv String Switch Sum SYD
Tab Tan Time Timer TimeSerial TimeValue Trim TypeName
UBound UCase
Val Var VarP VarPtr VarType
Weekday
Year

[Methods]
Accept Activate Add AddCustom AddFile AddFromFile AddFromTemplate AddItem AddNew AddToAddInToolbar AddToolboxProgID Append AppendChunk Arrange Assert AsyncRead
BatchUpdate BeginTrans Bind
Cancel CancelAsyncRead CancelBatch CancelUpdate CanPropertyChange CaptureImage CellText CellValue Circle Clear ClearFields ClearSel ClearSelCols Clone Close Cls ColContaining ColumnSize CommitTrans CompactDatabase Compose Connect Copy CopyQueryDef CreateDatabase CreateDragImage CreateEmbed CreateField CreateGroup CreateIndex CreateLink CreatePreparedStatement CreatePropery CreateQuery CreateQueryDef CreateRelation CreateTableDef CreateUser CreateWorkspace Customize
Delete DeleteColumnLabels DeleteColumns DeleteRowLabels DeleteRows DoVerb Drag Draw
Edit EditCopy EditPaste EndDoc EnsureVisible EstablishConnection Execute ExtractIcon
Fetch FetchVerbs Files FillCache Find FindFirst FindItem FindLast FindNext FindPrevious Forward
GetBookmark GetChunk GetClipString GetData GetFirstVisible GetFormat GetHeader GetLineFromChar GetNumTicks GetRows GetSelectedPart GetText GetVisibleCount GoBack GoForward
Hide HitTest HoldFields
Idle InitializeLabels InsertColumnLabels InsertColumns InsertObjDlg InsertRowLabels InsertRows Item
KillDoc
Layout Line LinkExecute LinkPoke LinkRequest LinkSend Listen LoadFile LoadResData LoadResPicture LoadResString LogEvent
MakeCompileFile MakeReplica MoreResults Move MoveData MoveFirst MoveLast MoveNext MovePrevious
NavigateTo NewPage NewPassword NextRecordset
OLEDrag OnAddinsUpdate OnConnection OnDisconnection OnStartupComplete Open OpenConnection OpenDatabase OpenQueryDef OpenRecordset OpenResultset OpenURL Overlay
PaintPicture Paste PastSpecialDlg PeekData Play Point PopulatePartial PopupMenu Print PrintForm PropertyChanged PSet
Quit
Raise RandomDataFill RandomFillColumns RandomFillRows rdoCreateEnvironment rdoRegisterDataSource ReadFromFile ReadProperty Rebind ReFill Refresh RefreshLink RegisterDatabase Reload Remove RemoveAddInFromToolbar RemoveItem Render RepairDatabase Reply ReplyAll Requery ResetCustom ResetCustomLabel ResolveName RestoreToolbar Resync Rollback RollbackTrans RowBookmark RowContaining RowTop
Save SaveAs SaveFile SaveToFile SaveToolbar SaveToOle1File Scale ScaleX ScaleY Scroll Select SelectAll SelectPart SelPrint Send SendData Set SetAutoServerSettings SetData SetFocus SetOption SetSize SetText SetViewport Show ShowColor ShowFont ShowHelp ShowOpen ShowPrinter ShowSave ShowWhatsThis SignOff SignOn Size Span SplitContaining StartLabelEdit StartLogging Stop Synchronize
TextHeight TextWidth ToDefaults TwipsToChartPart TypeByChartType
Update UpdateControls UpdateRecord UpdateRow Upto
WhatsThisMode WriteProperty
ZOrder

[Statements]
AppActivate
Base Beep
Call Case ChDir ChDrive Const
Declare DefBool DefByte DefCur DefDate DefDbl DefDec DefInt DefLng DefObj DefSng DefStr Deftype DefVar DeleteSetting Dim Do
Else ElseIf End Enum Erase Event Exit Explicit
FileCopy For ForEach Friend Function
Get GoSub GoTo
If Implements
Kill
Let LineInput Load Lock LSet
MkDir
Name Next
OnError On Option
Private Property Public Put
RaiseEvent Randomize ReDim Rem Reset Resume Return RmDir RSet
SavePicture SaveSetting SendKeys SetAttr Static Sub
Then Type
Unload Unlock
Wend While Width With Write

[Events]
_

[Ennor]

Transact-SQL Reserved Keywords

[FaKk2]

Я БУДУ РУГАТСЯ МАТОМ !!!!!!
Как заставить этот чертов скрипт раскрашивать код!!!!
gaidar, что ты прописал там!!!! не VB, Visual Basic, VisualBasic не РАБОТАЕТ!!!!@##%$@#^#%&$^$#5

[FaKk2]

Ах это "vb"...

(Истерический смех)

[gaidar]

Ах это "vb"...

(Истерический смех)

А кнопки VB и SQL на кой черт придумали?

[gaidar]

Кстати, а цвета какие?

[A.A.Z.]

Предлагаю ключевые слова выделять тёмно-синим, комментарии - зелёным, серый цвет для того, что в кавычках, а все остальное - черным Хотя, впрочем, почти так и есть все (кроме ключевых слов)

[EvilCoder]

А к чему нам SQL? Не лучше будет если Delphi и Си Включить? Намного чаще выкладывают нежели SQL

[FaKk2]

gaidar
В quick reply кнопок и в помине нет...

[gaidar]

Таааааакккккккккк!!!!!!!!!!!!!! Читать профиль всем!

[FaKk2]

gaidar
Прочитал. Установил. Кнопок VB и SQL не вижу

[uhm]

Насчет цветов - а можно то, что в кавычках, сделать каким-то другим цветом? Светло-серый на белом плохо читается...

[GSerg]

Ага, баги

Русские буквы, даже набранные вручную, а не скопированные, отображаются в syntax'е криво


Ещё снова предлагаю вообще убрать сервый цвет со строк и заменить ярко-синий на тёмно-синий.

[tyomitch]

На правах баг-репорта: http://bbs.vbstreets.ru/viewtopic.php?p=102182#102182

[gaidar]

Ох уж этот Бандит!

[gaidar]

Проверка:

Код: Выделить всё

Publuc Function FOF() As Boolean
  MsgBox("FOF!")
End Function

[gaidar]

Код: Выделить всё

Publuc Function FOF() As Boolean
  MsgBox("Наш ответ!")
End Function

[gaidar]

Блин... Что с кириллицей...

[gaidar]

Publuc Function FOF() As Boolean
MsgBox("Снова тест!")
End Function

[gaidar]

Код: Выделить всё

Publuc Function FOF() As Boolean
MsgBox("Снова тест!")
End Function

[gaidar]

Код: Выделить всё

Publuc Function FOF() As Boolean
MsgBox("Снова тест!")
End Function

<a href="hello world!"></a> &hello

[gaidar]

Код: Выделить всё

Publuc Function FOF() As Boolean
MsgBox("Снова тест!")
End Function

<a href="">hello world!</a> &hello

[gaidar]

Код: Выделить всё

Publuc Function FOF() As Boolean
MsgBox("Снова тест!")
End Function

[gaidar]

Код: Выделить всё

<td width="150" align="left" valign="top" class="row1"><span class="name"><a name="102319"></a><b><a href="javascript:pn('gaidar');">gaidar</a></b></span><br /><span class="postdetails">Chieftain<br /><img src="../../../../images/ranks/rank6.gif" alt="Chieftain" title="Chieftain" border="0" /><br /><img src="images/avatars/163962914840b352f376451.gif" alt="" border="0" /><br /><br />Зарегистрирован: 23.12.2001<br />Сообщения: 3033<br />Откуда: VBStreets, Москва</span><br /></td>
      <td class="row1" width="100%" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
            <td width="100%"><a href="viewtopic.php?p=102319#102319"><img src="templates/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Сообщение" title="Сообщение" border="0" /></a><span class="postdetails">Добавлено: 11.03.2005 (Пт) 00:25<span class="gen">&nbsp;</span>&nbsp; &nbsp;Заголовок сообщения: </span></td>
            <td valign="top" nowrap="nowrap"><a href="posting.php?mode=quote&amp;p=102319"><img src="templates/subSilver/images/lang_russian/icon_quote.gif" alt="Ответить с цитатой" title="Ответить с цитатой" border="0" /></a> <a href="posting.php?mode=editpost&amp;p=102319"><img src="templates/subSilver/images/lang_russian/icon_edit.gif" alt="Изменить/удалить это сообщение" title="Изменить/удалить это сообщение" border="0" /></a> <a href="posting.php?mode=delete&amp;p=102319&amp;sid=e29d641facafc4dc8de57ee29e720116"><img src="templates/subSilver/images/icon_delete.gif" alt="Удалить сообщение" title="Удалить сообщение" border="0" /></a> <a href="modcp.php?mode=ip&amp;p=102319&amp;t=14305&amp;sid=e29d641facafc4dc8de57ee29e720116"><img src="templates/subSilver/images/lang_russian/icon_ip.gif" alt="Показать IP адрес автора" title="Показать IP адрес автора" border="0" /></a></td>
         </tr>
         <tr>
            <td colspan="2"><hr /></td>
         </tr>
         <tr>

[gaidar]

Код: Выделить всё



a = "Русский язык"



[gaidar]

Все... я в ауте... все в cp1251 переводится ...

[gaidar]

Ответ:

Код: Выделить всё

b = "Привет"

[vvs_adm]

А это че за фигня, интересно, при замене точек на пробелы получается

span class="st0">"sFileName"" "" "

??

[FaKk2]

gaidar
На каком этапе переводится?
До или после раскраски?

[tyomitch]

Ох уж этот Бандит!

Вот и я о том же. Достал он меня

Напишем свой аггрегатор?

Тогда можно будет оставить автора/дату только в одном месте из двух