A Quine in VB.NET
-
Bulky but it works.
Sub Main()
Dim data = "Sub Main()End SubDim data = ""Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))"
Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))
End SubIt prints out the procedure declaration as well!
-
Bulky but it works.
Sub Main()
Dim data = "Sub Main()End SubDim data = ""Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))"
Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))
End SubIt prints out the procedure declaration as well!
-
Bulky but it works.
Sub Main()
Dim data = "Sub Main()End SubDim data = ""Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))"
Console.Write(data.Substring(0, 10) & vbCrLf & data.Substring(17, 12) & data.Substring(0, 29) & Chr(34) & data.Substring(29) & Chr(34) & vbCrLf & data.Substring(29) & vbCrLf & data.Substring(10, 7))
End SubIt prints out the procedure declaration as well!
Ummm....yeah.....whatever.
A guide to posting questions on CodeProject[^]
Dave Kreskowiak -
Because I was bored.