Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii
 Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...
 Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor
 Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android
 

Citire date din fisier .TXT

- - - - -
  • Please log in to reply
5 replies to this topic

#1
Mihai Popa

Mihai Popa

    Junior Member

  • Grup: Members
  • Posts: 61
  • Înscris: 12.02.2006
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
neagu_laurentiu

neagu_laurentiu

    Guru Member

  • Grup: Senior Members
  • Posts: 40,570
  • Înscris: 30.07.2003
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.


#3
gobi_staff

gobi_staff

    Junior Member

  • Grup: Members
  • Posts: 65
  • Înscris: 30.06.2010
Uite aici: http://tinyurl.com/bs55fm5 .

#4
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,383
  • Înscris: 10.08.2005

Quote

In acest moment pot citi fisierul si pot afisa continutul intr-un MsgBox sau intr-un Text1.text.
Foarte bine, recomand un String
astfel poti foarte usor manipula cu Left, Right, sau Mid orice bucata de "continut"

Edited by MarianG, 28 February 2013 - 16:04.


#5
nexusm

nexusm

    Senior Member

  • Grup: Senior Members
  • Posts: 2,793
  • Înscris: 07.07.2011
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



#6
Mihai Popa

Mihai Popa

    Junior Member

  • Grup: Members
  • Posts: 61
  • Înscris: 12.02.2006
Am reusit, cu Mid.
Multumesc

Anunturi

Chirurgia spinală minim invazivă 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

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