Kezdőoldal » Számítástechnika » Programozás » Nekem kellene erre a programra...

Joskagyerek123 kérdése:

Nekem kellene erre a programra egy megoldás, vagy elég ha a beolvasásban segit valaki. Az adatok tabulátorral vannak elválasztva egy szövegfájlban. Visual Basic a programnyelv valaki esetleg segitene?

Figyelt kérdés

Mellékeltem a szövegfájlt

Suzuki piros 1100

Opel fekete 1600

Skoda kék 1200

Ford ezüst 2000

VW zöld 1800

Renault grafit 1500

Peugeot fehér 2000



2014. máj. 14. 09:23
 1/4 Tengor ***** válasza:
Másold fel valahova a kódot, ami eddig készen van!
2014. máj. 14. 09:27
Hasznos számodra ez a válasz?
 2/4 A kérdező kommentje:

Dim auto(7), szin(7), x(7) As String

Dim ccm(7) As Integer

Dim asd As StreamReader


asd = New StreamReader("Q:\autoadat.txt")

For i = 1 To 7

x(i) = asd.ReadLine

auto(i) = x(i).Split(Chr(9))(0)

szin(i) = x(i).Split(Chr(9))(1)

ccm(i) = x(i).Split(Chr(9))(2)

WriteLine(" Az Autó neve: " & auto(i) & " színe: " & szin(i) & " Köbcentimétere: " & ccm(i))



Next



ReadKey()

2014. máj. 14. 09:33
 3/4 anonim ***** válasza:

Hello,én találkoztam már ezzel a feladattal itt Gyakorin-ott C#-ben kérték,én megírtam C#-re (+1-2feladat hozzá)

Én C#-zen nem VB-ztem még de

C# to VB.Net converterrel ez jött ki:

Class Cars

Public Property Name() As String

Get

Return m_Name

End Get

Set

m_Name = Value

End Set

End Property

Private m_Name As String

Public Property Price() As Integer

Get

Return m_Price

End Get

Set

m_Price = Value

End Set

End Property

Private m_Price As Integer

Public Property Color() As String

Get

Return m_Color

End Get

Set

m_Color = Value

End Set

End Property

Private m_Color As String

Public CarPack As New List(Of Cars)()

Public Function ReadCarFile(file_name As String) As List(Of Cars)

Dim sr = New StreamReader(file_name, Encoding.[Default])

While Not sr.EndOfStream

Dim sor As String() = sr.ReadLine().Split(" "C)

Dim CarProducts = New Cars() With { _

Key .Name = sor(0).ToString() _

}

CarPack.Add(CarProducts)

End While

sr.Close()

Return CarPack

End Function

End Class

2014. máj. 14. 13:39
Hasznos számodra ez a válasz?
 4/4 anonim ***** válasza:

itt a C#-s kód,ahogy látom rossz a C#->VB converter.

[link]


Próbáld VB-be implementálni(vagy valami jobb converter)

2014. máj. 14. 13:44
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!