Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Vand Proiect AI cu ChatGPT 4(Gene...

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...

Recuperare fișiere dupa form...
 Aplicatii stress test RAM

Asigurare auto hibrid

Asus B550M - PC-ul nu porneste di...

Tzanca Uraganu - Inconjurat de Fe...
 explicatie montaj breadboard

3 Doors Down - Kryptonite

Semnalizati cand virati pe un dru...

Succesiune - mostenire apartament...
 Donez Siofor de 1000mg ( diabet t...

Izolatie intre parter si etaj

Hranirea pasarilor din orase -pro...

[unde] goarna tramvai
 

Text Files

- - - - -
  • Please log in to reply
1 reply to this topic

#1
S9yN37®

S9yN37®

    New Member

  • Grup: Members
  • Posts: 18
  • Înscris: 09.11.2005
Am un fisier txt care contine:
map1
map2
map3
il deschid le citesc, amestec cuvintele apoi le scriu:
"map2"
"map3"
"map1"
Intrebarea e cum fac sa nu`mi mai puna ghilimelele???

Programul:

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

___
mod edit: foloseste tag-urile de cod


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


#2
uu666

uu666

    New Member

  • Grup: Members
  • Posts: 23
  • Înscris: 23.08.2006
asta pentru ca folosesti "Write" ... foloseste "Print":

xxxx=RandMaps(index)
print #1,xxxx
insa asta va pune in fisier doar continutul lui xxxx... le faci pe toate si dupa aia le scrii.

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


Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate