Skocz do zawartości

Sumowanie textbox+odpowiednia linia z pliku .txt


Mabcin

Rekomendowane odpowiedzi

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ć?
Edytowane przez Mabcin
Odnośnik do komentarza

Zarejestruj się za darmo i naucz się zarabiać online!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji i wiele więcej!
  • 2 tygodnie później...

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Polecana zawartość

    • Poradnik podatkowy - jak rozliczać się z pieniędzy zarobionych przez Internet bez DG?
      Zarabianie w Internecie wiąże się z koniecznością płacenia podatków - a rozliczanie się z urzędem skarbowym nie jest jednoznaczne i proste. Prawo podatkowe w Polsce jest nieujednolicone - co oznacza, że każdy urząd skarbowy może mieć inne interpretacje. Sprawdź jak się za to zabrać!
        • Lubię to!
        • Super
      • 14 odpowiedzi
    • JDG - Jak zarejestrować, rozliczać i prowadzić działalność gospodarczą w Polsce
      Jednoosobowa działalność gospodarcza (JDG) to najprostsza forma prowadzenia działalności gospodarczej w Polsce. Jest to działalność prowadzona przez jedną osobę fizyczną na własne nazwisko i na własne ryzyko. Jednak mimo, że nazywa się jednoosobowa - daje jednak możliwość zatrudniania pracowników. Takich firm jest zarejestrowanych w Polsce zdecydowanie najwięcej. Sprawdź jak zarejestrować, rozliczać i prowadzić własną JDG!
        • Super
      • 3 odpowiedzi
    • Inwestowanie w obligacje detaliczne skarbu państwa - od podstaw!
      Sprawdź jak inwestować w obligacje skarbowe - krok po kroku! Detaliczne obligacje skarbowe to rodzaj obligacji emitowanych przez Państwo, które są oferowane indywidualnym inwestorom, takim jak osoby fizyczne, a nie instytucjom finansowym.

      Są to instrumenty dłużne, nienotowane na żadnym rynku, co oznacza że kupując taką obligację, w praktyce pożyczasz pieniądze państwu na określony czas, a w zamian otrzymujesz odsetki. Można więc powiedzieć że obligacje są indywidualną pożyczką na określony % dla Skarbu Państwa. Państwo odda Ci więcej niż od Ciebie pożyczyło.
        • Super
      • 7 odpowiedzi
    • Jak pozyskiwać i zarabiać na poleconych dzięki make-cash.pl
      W tym poradniku przedstawiam możliwości dostępne dla każdego użytkownika. Dowiesz się jak efektywnie wykorzystać forum do zbierania poleconych i budowania dodatkowych zysków.

      Make-cash.pl to miejsce, gdzie ludzie dzielą się swoimi doświadczeniami, poszukują porad i rekomendacji, a także nawiązują wartościowe kontakty. Codziennie odwiedza nas minimum 2000 unikalnych osób, które są zainteresowane zarabianiem przez Internet - a to ogromny potencjał, z którego może korzystać nie tylko administracja - ale każdy użytkownik forum !
        • Super
      • 2 odpowiedzi
    • Jak pisać treści na stronę internetową z wykorzystaniem AI
      Tworzenie treści od podstaw może być procesem czasochłonnym. Istnieje wiele mniejszych kroków, o których należy pomyśleć w drodze do stworzenia atrakcyjnych treści, takich jak badanie rynku, SEO i redagowanie tekstu, a to tylko początek. Jednak nie musisz zaczynać od zera, gdy istnieją narzędzia AI, które mogą pomóc w tworzeniu wysokiej jakości treści. 
        • Dzięki!
        • Super
      • 13 odpowiedzi
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .