AspNetWebStack/test/System.Web.Razor.Test/TestFiles/CodeGenerator/VB/Output/ExpressionsInCode.vb at master · ShaomingCode/AspNetWebStack · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:N.N.NNNNN.N
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Namespace TestOutput
Public Class ExpressionsInCode
Public Sub New()
MyBase.New
End Sub
Public Overrides Sub Execute()

#ExternalSource("ExpressionsInCode.vbhtml",1)

    Dim foo As Object = Nothing
    Dim bar as String = "Foo"


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("ExpressionsInCode.vbhtml",6)
 If foo IsNot Nothing Then


#End ExternalSource

#ExternalSource("ExpressionsInCode.vbhtml",7)
Write(foo)


#End ExternalSource

#ExternalSource("ExpressionsInCode.vbhtml",7)

Else


#End ExternalSource
WriteLiteral("    ")

WriteLiteral("<p>Foo is Null!</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("ExpressionsInCode.vbhtml",10)
End If


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("ExpressionsInCode.vbhtml",13)
 If Not String.IsNullOrEmpty(bar) Then


#End ExternalSource

#ExternalSource("ExpressionsInCode.vbhtml",14)
Write(bar.Replace("F", "B"))


#End ExternalSource

#ExternalSource("ExpressionsInCode.vbhtml",14)

End If


#End ExternalSource
WriteLiteral("</p>")

End Sub
End Class
End Namespace