Форум АНТИЧАТ - Студентам с лабораторными сюда

#11

17.12.2008, 00:09

Fepsis

Постоянный

Регистрация: 17.09.2008

Сообщений: 562

Провел на форуме:
6962560

Репутация: 536

Цитата:

Сообщение от Magarjoba

есть малый дум, по поводу вот чего.....:
типа есть массив букв от [a...z], и N количество знаков =4,
вот мне надо сгенерировать типа в таком виде чтоб вышло.......
aaaa
aaab
aaac
........ :
пока дойдет до
zzzz
чтоб с выходным файлом о полученном результате в виде *.txt

просто у меня тут делфя стоит, а я в нёй нешарю, чтото другое поставить немогу админ забанил......
вот такая проблема((, если я непоадресу то извените, но уже то количество литературы кот я пролистал непомогает.......(( помогите кто нить!!

То есть тебе не важно на каком языке, главное результат..??! Тогда открывай блокнот, пиши туда

Код:

Dim My1Array(25)
Dim oFso
Dim oMyFile

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMyFile = oFso.CreateTextFile("output.txt")

My1Array(0) ="a"
My1Array(1) = "b"
My1Array(2) = "c"
My1Array(3) = "d"
My1Array(4) = "e"
My1Array(5) = "f"
My1Array(6) = "g"
My1Array(7) = "h"
My1Array(8) = "i"
My1Array(9) = "j"
My1Array(10) = "k"
My1Array(11) = "l"
My1Array(12) = "m"
My1Array(13) = "n"
My1Array(14) = "o"
My1Array(15) = "p"
My1Array(16) ="q"
My1Array(17) = "r"
My1Array(18) = "s"
My1Array(19) = "t"
My1Array(20) = "u"
My1Array(21) = "v"
My1Array(22) = "w"
My1Array(23) = "x"
My1Array(24) = "y"
My1Array(25) = "z"


For i = 0 To 25
   For j = 0 To 25
      For k = 0 To 25
	For l = 0 To 25
	   
oMyFile.WriteLine(My1Array(i)&My1Array(j)&My1Array(k)&My1Array(l))

             Next
      Next
   Next
Next

сохраняй как ххх.vbs и запускай.. получишь то, что надо..)))

Последний раз редактировалось Fepsis; 17.12.2008 в 00:21..