Квайн

[udpn]

Квайн - это программа, которая выдает в качестве своего действия свой собственный код. Обычно это делается в стдвывод, но, за неимением оного, пишем в файл.

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

Const Cod As String = "Const Cod As String = %" & vbCrLf & "Sub Main()" & vbCrLf & "Dim v As Variant, i As Long" & vbCrLf & "Open App.Path & ""\me.txt"" For Output As #1" & vbCrLf & "v = Split(Cod, vbCrLf)" & vbCrLf & "For i = 0 To UBound(v)" & vbCrLf & "v(i) = """""""" & Replace(v(i), """""""", """""""""""") & """"""""" & vbCrLf & "Next" & vbCrLf & "Print #1, Replace(Cod, ""%"", Join(v, "" & vbCrLf & ""), 1, 1)" & vbCrLf & "Close #1" & vbCrLf & "End Sub"
Sub Main()
Dim v As Variant, i As Long
Open App.Path & "\me.txt" For Output As #1
v = Split(Cod, vbCrLf)
For i = 0 To UBound(v)
v(i) = """" & Replace(v(i), """", """""") & """"
Next
Print #1, Replace(Cod, "%", Join(v, " & vbCrLf & "), 1, 1)
Close #1
End Sub


[alibek]

Это плохой квайн.
Лучший был в старых версиях бейсика:
10 LIST

[Денис]

Жесть!
http://alex-semenov.livejournal.com/1797.html?thread=5893
По приведенной ссылке раскопан целый философский пласт!!! Большое спс, udpn, за квайны!

[udpn]

Лучший был в старых версиях бейсика

Нуу, многие уже не знают, что такие версии и существовали. А вообще боян...

[Crio]

ОЙ!
Объясните, пожалуйста, как оно работает. А то слова знакомые, но складываются в такое...

Особенно вот эту часть:

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

For i = 0 To UBound(v)
v(i) = """" & Replace(v(i), """", """""") & """"
Next
Print #1, Replace(Cod, "%", Join(v, " & vbCrLf & "), 1, 1)

[Хакер]

Строковая константа код разбивается на массив стрингов, каждый элемент которого содержит строку, заканчивающуюся (заканчивавшуюся, ибо теперь его там нет) символоми CR-LF.
Затем к каждому элементу этого массива меняется на [символ кавычки] + [прежнее значение элемента массива, в котором все символы кавычки заменены на пару таких же символов] + [символ кавычки].

Затем в файл записывается константа cod, в которой все символы % заменены на строчки, склеенные из элементов массива, комбинацией " & vbCrLf & ".

Что непонятного-то?

[Crio]

Всё, спасибо...
Было непонятно, что такое """" (это кавычки - ").

[udpn]

в которой все символы %

see доп пар-ры для Replace: только первый...

Всё, спасибо...

Не за что, писал полчаса и для души, был уверен что кому-нить понравится
Оддед: али это не ка мне )

Было непонятно, что такое """"

До сих пор удивляюсь, как получилось """"""""""""

[Crio]

udpn
И тебе, конечно, спасибо. Познавательно.