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?
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
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()
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
itt a C#-s kód,ahogy látom rossz a C#->VB converter.
Próbáld VB-be implementálni(vagy valami jobb converter)
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!