Znajdź zawartość
Wyświetlanie wyników dla tagów 'sumowanie' .
Znaleziono 1 wynik
-
Cześć wszystkim. Siedzę i myślę jak to rozwiązać może ktoś z Was wpadnie na pomysł. Jak dodać odpowiednie wyniki z textboxa do odpowiednich linijek w istniejącym już pliku .txt Wizualizując wygląda to tak Mam np. textbox1 z wynikiem 6 i chciałbym tą 6 dodać do pierwszej linijki w pliku .txt Mój kod wygląda następująco: Public Class Form1 Private x As Long 'kalkulator i tworzenie zapisu cen i wag Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click Dim a, b, c, d, g, f As Object Dim dzien As String = My.Computer.FileSystem.FileExists("D:\kalkulator\" + DateTimePicker1.Text + ".txt") a = FlatTextBox1.Text b = FlatTextBox2.Text c = FlatTextBox3.Text d = FlatTextBox4.Text g = ILabel4.Text f = ILabel6.Text ILabel6.Text = Val(a * ILabel8.Text = Val(c * d) ILabel9.Text = CSng(ILabel6.Text) + CSng(ILabel8.Text) If dzien = False Then My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + FlatTextBox2.Text, False) ' Tworzy plik o nazwie (data dnia) jeśli go nie ma Else TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki. End If End Sub 'wczytywanie pliku z cenami Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = ""D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT 'pobieranie poszczególnych wartośćci z wybranych wierszy Dim pierwsza = lines(0).Split("="c)(1) Dim druga = lines(1).Split("="c)(1) FlatTextBox1.Text = pierwsza FlatTextBox3.Text = druga End SubEnd Class W miejscu gdzie jest " TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki." Wymyśliłem takie coś: Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = "D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT Dim zapisane1, kg As Single zapisane1 = lines(0).Split("="c)(1) kg = CSng(FlatTextBox2.Text) ILabel3.Text = CSng(zapisane1) + CSng(kg) My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + CSng(zapisane1) + CSng(kg), False) Ale niestety wywala błąd "Konwersja z ciągu "Ilość=" na typ 'Double' nie jest prawidłowa." Ma ktoś jakiś może inny pomysł jak to rozwiązać?
