Hej! Hej, Så här skall du göra.Glöm Johan:s svammel har inte med frågan att göraTextfil och Array
Jag är nybörjare på detta men vill göra ett rankingprogram.
I alla fall kan jag göra en texfilen ser ut så här:
Nr Namn Rank Antal plusminus Flytande (exempel: 1 Lelle 2000 5 +10 2010)
Det är alltså 6 fält som jag vill hålla reda på.
1 Lelle 2000 5 +10 2010
Men hur gör jag med array för att hålla reda på alla kolumner (6 st i varje rad)?Sv: Textfil och Array
Jag antar att du undrar hur man deklarerar din variabel? Mitt svar bygger på detta antagande.
<b>Alternativ 1 - behandla allt som strägnar</b>
<code>Dim Info(AntalRader, 6) As String</code>
eller
<code>Dim Info(6, AntalRader) As String</code>
valet här är en smaksak.
<b>Alternativ 2 - använda egna typer</b>
<code>Public Type EnRad
Nr As Integer
Namn As String
Rank As Long
Antal As Integer
PlusMinus As Integer
Flytande As Long
End Type
Dim Info(AntalRader) As EnRad</code>
// JohanSv:Textfil och Array
Du får in en variabel (mitt ex rStr) från <b>Open "xxxxx" For Input As</b>.
Den kan du placera i RankArray enl. nedan
<code>
Dim RankArray() As String, rStr As String
'Testrad 1 Lelle 2000 5 +10 2010
rStr = "1 Lelle 2000 5 +10 2010"
RankArray = Split(rStr)
'Nu har du de 6 värdena i RankArray 0 till 5
</code>