ace-code-editor

[[ "start", ["identifier","myfilename"], ["text"," "], ["keyword.operator.asp","="], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","C:\\Wikipedia - VBScript - Example - Hello World.txt\""] ],[ "start", ["identifier","MakeHelloWorldFile"], ["text"," "], ["identifier","myfilename"] ],[ "state_4", ["meta.leading-space"," "] ],[ "start", ["storage.type.function.asp","Sub"], ["text"," "], ["entity.name.function.asp","MakeHelloWorldFile"], ["text"," "], ["punctuation.definition.parameters.asp","("], ["variable.parameter.function.asp","FileName"], ["punctuation.definition.parameters.asp",")"] ],[ "start", ["punctuation.definition.comment.asp","'"], ["comment.line.apostrophe.asp","Create a new file in C: drive or overwrite existing file"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["storage.type.asp","Set"], ["text"," "], ["identifier","FSO"], ["text"," "], ["keyword.operator.asp","="], ["text"," "], ["support.function.vb.asp","CreateObject"], ["text","("], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","Scripting.FileSystemObject\""], ["text",")"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["keyword.control.asp","If"], ["text"," "], ["identifier","FSO"], ["text","."], ["identifier","FileExists"], ["text","("], ["identifier","FileName"], ["text",") "], ["keyword.control.asp","Then"], ["text"," "] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["identifier","Answer"], ["text"," "], ["keyword.operator.asp","="], ["text"," "], ["support.function.vb.asp","MsgBox"], ["text"," ("], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","File \""], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["identifier","FileName"], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp"," exists ... OK to overwrite?\""], ["text",", "], ["identifier","vbOKCancel"], ["text",")"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["punctuation.definition.comment.asp","'"], ["comment.line.apostrophe.asp","If button selected is not OK, then quit now"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["punctuation.definition.comment.asp","'"], ["comment.line.apostrophe.asp","vbOK is a language constant"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["keyword.control.asp","If"], ["text"," "], ["identifier","Answer"], ["text"," "], ["keyword.operator.asp","<>"], ["text"," "], ["identifier","vbOK"], ["text"," "], ["keyword.control.asp","Then"], ["text"," "], ["keyword.control.asp","Exit"], ["text"," "], ["keyword.control.asp","Sub"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["keyword.control.asp","Else"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["punctuation.definition.comment.asp","'"], ["comment.line.apostrophe.asp","Confirm OK to create"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["identifier","Answer"], ["text"," "], ["keyword.operator.asp","="], ["text"," "], ["support.function.vb.asp","MsgBox"], ["text"," ("], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","File \""], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["identifier","FileName"], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp"," ... OK to create?\""], ["text",", "], ["identifier","vbOKCancel"], ["text",")"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.even-tab.spaces"," "], ["meta.odd-tab.spaces"," "], ["keyword.control.asp","If"], ["text"," "], ["identifier","Answer"], ["text"," "], ["keyword.operator.asp","<>"], ["text"," "], ["identifier","vbOK"], ["text"," "], ["keyword.control.asp","Then"], ["text"," "], ["keyword.control.asp","Exit"], ["text"," "], ["keyword.control.asp","Sub"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["keyword.control.asp","End"], ["text"," "], ["keyword.control.asp","If"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["punctuation.definition.comment.asp","'"], ["comment.line.apostrophe.asp","Create new file (or replace an existing file)"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["storage.type.asp","Set"], ["text"," "], ["identifier","FileObject"], ["text"," "], ["keyword.operator.asp","="], ["text"," "], ["identifier","FSO"], ["text","."], ["identifier","CreateTextFile"], ["text"," ("], ["identifier","FileName"], ["text",")"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["identifier","FileObject"], ["text","."], ["identifier","WriteLine"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","Time ... \""], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["support.function.vb.asp","Now"], ["text","()"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["identifier","FileObject"], ["text","."], ["identifier","WriteLine"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","Hello World\""] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["identifier","FileObject"], ["text","."], ["identifier","Close"], ["text","()"] ],[ "start", ["meta.odd-tab.spaces"," "], ["meta.leading-space"," "], ["support.function.vb.asp","MsgBox"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp","File \""], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["identifier","FileName"], ["text"," "], ["keyword.operator.asp","&"], ["text"," "], ["punctuation.definition.string.begin.asp","\""], ["string.quoted.double.asp"," ... updated.\""] ],[ "start", ["keyword.control.asp","End"], ["text"," "], ["keyword.control.asp","Sub"] ]]