Text Files

Option Explicit
Dim Maps() As String
Dim RandMaps() As String

Private Sub cmdRandom_Click()
Dim GN As Integer ' numa generat
Dim i As Integer
Dim y As Integer
Dim index As Integer
Dim NH As Integer
NH = NumarHarti("mapcycle.txt")
ReDim Maps(NH) As String

	Open "mapcycle.txt" For Input As #1
	For index = 1 To NH
	Input #1, Maps(index)
	Next index
	Close #1

ReDim RandMaps(NH) As String

For i = NH To 1 Step -1
	GN = Int((i * Rnd) + 1)
	RandMaps(i) = Maps(GN)
	Maps(GN) = "0"
	For y = 1 To i
		If Maps(y) = "0" And y <> i Then
		Maps(y) = Maps(y + 1)
		Maps(y + 1) = 0
		End If
	Next y
Next i

	Open "mapcycle.txt" For Output As #1
	For index = 1 To NH
	Write #1, RandMaps(index)
	Next index
	Close #1
Shell ("notepad.exe mapcycle.txt")
End Sub

Function NumarHarti(fisHarti As String) As Integer
Dim numeHarta As String
Dim lC As Integer
Open fisHarti For Input As #1
Do While Not EOF(1)
Input #1, numeHarta
lC = lC + 1
Loop
Close #1
NumarHarti = lC
End Function

Edited by RAZ, 14 April 2006 - 08:57.

xxxx=RandMaps(index)
print #1,xxxx

Edited by uu666, 24 August 2006 - 08:42.