Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Problema activare Xbox live gold ...

Fluierat Astra H 1.9 CDTI

Excel - Intrebare referitoare la ...
 Caut dentist care sa pune plombe ...

Grinzi suspendate

BluRay Player 4k

Calorifer
 Dovada talon

Denumire Club de Noapte

Știri legate de Stația ...

Sfat achizitie componente
 Locul unde se salveaza jocurile

Analizator antena Ringexpert

Spionul - The Spy (2019)

Versuri melodie
 

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: 39,840
  • Î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: 28,237
  • Î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

Bun venit pe Forumul Softpedia!

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