Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
Citire date din fisier .TXT
Last Updated: Mar 04 2013 11:09, Started by
Mihai Popa
, Feb 28 2013 14:04
·
0
#1
Posted 28 February 2013 - 14:04
Buna ziua.
As dori sa citesc date dintr-ul fisier .txt cu VB6 astfel: in fisierul .txt datele sunt scrise in felul urmator: "1234567890ABCDEF". Ma intereseaza sa pot face o sintaxa care sa citeasca aceste caractere unul cate unul. In acest moment pot citi fisierul si pot afisa continutul intr-un MsgBox sau intr-un Text1.text. Practic, am o matrice de tipul led(index) si as vrea sa citesc fisierul si sa pun astfel: for index=0 to 16 "citeste din fisierul .txt pozitia 1" = led(index) next index. Va multumesc pentru ajutor. |
#2
Posted 28 February 2013 - 14:41
Ca principiu nu-i eficient sa citesti din fisier caracter cu caracter. Freci discul aiurea. Dar se poate.
Asa ca citeste in blocuri sau tot daca-i mic si parcurge sirul de caractere, ai functii sa extragi cate un caracter dintr-un sir. Edited by neagu_laurentiu, 28 February 2013 - 14:41. |
#4
Posted 28 February 2013 - 16:04
Quote In acest moment pot citi fisierul si pot afisa continutul intr-un MsgBox sau intr-un Text1.text. astfel poti foarte usor manipula cu Left, Right, sau Mid orice bucata de "continut" Edited by MarianG, 28 February 2013 - 16:04. |
#5
Posted 28 February 2013 - 18:00
Dim sir$ 'presupunem ca deja am atribuit variabilei sir valoarea din fisierul .txt direct(LineInput) sau prin intermediul unui control(textbox) sa zicem 'Scenariul 1 'presupunem ca trebuie analizate toate valorile din sir (una cate una asa cum ai spus) 'functie de aceste valori cineva sau ceva face ceva Dim Temp For i = 1 To Len(sir) Temp = Mid$(sir, i, 1) 'conditii functie de pozitia in sir If i = 1 Then 'face ceva functie de valoare If Temp = "3" Then 'face ceva End If If Temp = "..." Then '... End If End If '... If i = 16 Then '... End If Next 'Scenariul 2 'presupunem ca te intereseaza doar valoarea pozitiei 7 din sir Temp = Mid$(sir, 7, 1) 'presupunem ca te intereseaza doat daca pozitia a 7-a are valoarea x If Mid$(sir, 7, 1) = X Then 'face ceva End If 'restul sunt combinatii intre cele 2 scenarii |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users