diff options
| author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
|---|---|---|
| committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
| commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
| tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.vbs | |
| parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
| download | pygments-master.tar.gz | |
Diffstat (limited to 'tests/examplefiles/example.vbs')
| -rw-r--r-- | tests/examplefiles/example.vbs | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/tests/examplefiles/example.vbs b/tests/examplefiles/example.vbs deleted file mode 100644 index d962b73d..00000000 --- a/tests/examplefiles/example.vbs +++ /dev/null @@ -1,55 +0,0 @@ -rem VBScript examples - -' Various constants of different types -const someText = "some " & """text""" -const someInt = 123 -const someHex = &h3110c0d3 -const someFloat = 123.45e-67 -const someDate = #1/2/2016# -const someTime = #12:34:56 AM# -const someBool = vbTrue ' -1 - -' Do some math. -radius = 1.e2 -area = radius ^ 2 * 3.1315 -a = 17 : b = 23 -c = sqr(a ^2 + b ^ 2) - -' Write 10 files. -For i = 1 to 10 - createFile( i ) -Next - -Public Sub createFile(a) - Dim fso, TargetFile - TargetPath = "C:\some_" & a & ".tmp" - Set fso = CreateObject("Scripting.FileSystemObject") - Set TargetFile = fso.CreateTextFile(TargetPath) - TargetFile.WriteLine("Hello " & vbCrLf & "world!") - TargetFile.Close -End Sub - -' Define a class with a property. -Class Customer - Private m_CustomerName - - Private Sub Class_Initialize - m_CustomerName = "" - End Sub - - ' CustomerName property. - Public Property Get CustomerName - CustomerName = m_CustomerName - End Property - - Public Property Let CustomerName(custname) - m_CustomerName = custname - End Property -End Class - -' Special constructs -Option Explicit -On Error Resume Next -On Error Goto 0 - -' Comment without terminating CR/LF.
\ No newline at end of file |