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 |
Text Files
Last Updated: Aug 24 2006 08:39, Started by
S9yN37®
, Apr 14 2006 03:06
·
0
#1
Posted 14 April 2006 - 03:06
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
Posted 24 August 2006 - 08:39
asta pentru ca folosesti "Write" ... foloseste "Print":
xxxx=RandMaps(index) print #1,xxxxinsa 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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users