Как открыть текстовый файл и разобрать его

У меня есть следующий вопрос. В моей форме я пишу свою форму со значением «76,50» как «07650». Теперь я хочу, чтобы открыть свой файл снова в ListBox со значением 76,50 вместо 07650.Как открыть текстовый файл и разобрать его

Public Class AddwhenOpen 

Public number As Integer 
Public name As String 
Public Birthday As Integer 
Public perc As Decimal 
Public comboboxvalue As String 

Public Function ToStringForPrinter() As Decimal 

Return comboboxvalue & nummer.ToString.PadLeft(5) & naam.PadLeft(5) & Geboortejaar.ToString.PadRight(5) & (perc/100).ToInt64("00,00") 

End Function

Код для КЛАССА

`Public Class ChangeFormatBackToDecimal 

Public number As Integer 
Public name As String 
Public Bday As Integer 
Public perc As Decimal 
Public comboboxvalue As String 

Public Function TostringForPrinter() As String 
    Return comboboxvalue & number.ToString.PadLeft(5) & name.PadLeft(5) & Bday.ToString.PadRight(5) & Format(perc/100, "#00,00") 
End Function`

код при открытии файла ...

Dim index As Integer = 0 
    Dim lijn As String 

    'Keuzelijst leegmaken. 
    lstOutput.Items.Clear() 


    With dlgOpenen 
     .Filter = "textfiles (*.txt) | *.txt" 
     .FileName = "" 
     .InitialDirectory = "C:\My Documents" 
     .Title = "Open" 
    End With 

    If dlgOpenen.ShowDialog = DialogResult.OK Then 
     FileOpen(1, dlgOpen.FileName, OpenMode.Input) 
     Do While Not EOF(1) 
      line = LineInput(1) 
      lstOutput.Items.Add(line) 
     Loop 
     FileClose(1) 
    End If 
    Resetdefaultvalue()

Dim данные Как Новый ChangeFormatBackToDecimal

data.comboboxvalue = cboAfdeling.SelectedItem.ToString.PadRight(5) & cboKlasGetal.SelectedItem.ToString & cboAfdeling.SelectedItem.ToString & cboKlasLetter.SelectedItem.ToString.PadRight(5) 

    data.number = CInt(txtNumber.Text) 
    data.name = txtName.Text 
    data.Bday = CInt(txtBday.Text) 
    data.perc = CDec(txtPerc.Text) 


    lstOutput.Items.Add(data)

Может кто-нибудь мне помочь?

источник

2013-06-08 Jorr3

Что вы делали до сих пор? – DaGardner

с использованием winforms или webforms? – Usman

Почему вы сохраняете значение как '07650'? Почему бы не сохранить его как '76.50' вместо этого? –

Чтобы изменить строку 76,50 вместо 07650.

Dim n as Integer = val("07650") 

Dim s as String = format(s/100)

Это необязательно ...

s = s.Replace(".",",") 
s = s.PadRight(5,"0")

О ВАШЕМ КОД:

Это должно быть

Return comboboxvalue & nummer.ToString.PadLeft(5) & naam.PadLeft(5) & Geboortejaar.ToString.PadRight(5) & format(perc/100,"#0.00")

источник

2013-06-08 22:51:29 matzone

«Чтобы изменить строку» не работает ... Мое значение в переменной, объявленной в дополнительном классе ... Как получить значение, которое сохраняется как, например, 07650 ", в форму снова со значением« 76,50 »... – Jorr3

Мое значение« 07650 »- это строковый тип. Единственное, что ... Я не могу разобраться: S – Jorr3

Thnx, но он не работает: S. Я думаю, что я делаю что-то неправильно, ... снова ... Я поместил свой код для класса и открыл файл в списке в приведенной выше теме. – Jorr3

Как открыть текстовый файл и разобрать его

ответ

Смежные вопросы