перемешать элементы массива. как ?

[Сергей K.]

Вообщем сабж.
Т.е. есть массив, в качестве переменных которого string,
как их перемешать в произвольном порядке и слить в файл обратно.

Спасибо.

[alibek]

Ну допустим у тебя есть массив Text(1 to 100) As String
Тогда:

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

Dim I As Long, J As Long, N As Long, Z As String
Dim I1 As Long, I2 As Long
N = UBound(Text)
For I = 1 to N-1
  Randomize Timer
  J = I+1 + Fix(Rnd*(N-I))
  Z = Text(I)
  Text(I) = Text(J)
  Text(J) = Z
Next i


[Сергей К..]

Спасибо! работает.
Кстати а как можно объяснить, что уменя полученный файл (после всех
действий с ним) отличается от исходного на где-то 600 байтов.

Что делаю с файлом: вырезаю тектовые блоки черех InStr,
затем блоки помещаю в массив, потом массив перебираю в цикле
+ Fix(Rnd*(N-I)) "Твой пример", затем еще раз перебираю в циkле и через txt.WriteLine strArray(I) пишу в файл. Куда делись байты ????

[skiperski]

Кстати а как можно объяснить, что уменя полученный файл (после всех
действий с ним) отличается от исходного на где-то 600 байтов.

Сравни кол-во строк в исходном и полученном файлах. Скорее всего теряешь пустые строки. При большом объёме исходника потерять 300 строк (по два символа на сторку, vbCrLf = vbCr & vbLf = Chr$(13) & Chr$(10)) можно запросто. Ещё могут быть, точнее наоборот - отсутствовать, завершающие строку пробелы.