Visual Basic - vytvoření souboru Vyřešeno

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

IIwetKKa
nováček
Příspěvky: 34
Registrován: září 11
Pohlaví: Žena

Visual Basic - vytvoření souboru  Vyřešeno

Příspěvekod IIwetKKa » 02 dub 2012 14:16

Ahoj,
předem se omlouvám za dotaz, protože se možná někomu bude zdát jako fatální, ale nejsem nějaký pokročilý programátor. Proto jsem sem také napsala, abych se něco nového naučila a příště už to věděla.

Potřebuji ve Visual Basicu 2008 odstranit soubor a poté ho znovu vytvořit, což se mi daří.

Kód: Vybrat vše

Kill("D:\ID.txt")
IO.File.Create("D:\ID.txt")


Chyba nastane, když chci nový soubor otevřít.

Kód: Vybrat vše

FileOpen(1, "D:\ID.txt", OpenMode.Input)


Program mi vypíše chybu, že je soubor již spuštěný v jiném programu.

Jak tedy docílím toho, aby šel soubor bez problémů otevřít a zapisovat do něj?

Předem děkuji za rady.

S přáním hezkého dne
IIwetKKa


Děkuji
IIwetKKa

Reklama
Uživatelský avatar
domitea
Tvůrce článků
Level 4.5
Level 4.5
Příspěvky: 1966
Registrován: červen 09
Bydliště: Královehradecký kraj
Pohlaví: Muž

Re: Visual Basic - vytvoření souboru

Příspěvekod domitea » 02 dub 2012 15:03

Celý kód?
UNIX je systém jednoduchý, jen musíte být geniální, aby jste tu jednoduchost pochopili. Jedině OSS, vše co napíšu je pod GNU/GPL
Linux je mé koření života. Nikdy nevím, co pokazím! Registered user #550849

Dnešní počítače mi nestačí, pracuji na vlastním

IIwetKKa
nováček
Příspěvky: 34
Registrován: září 11
Pohlaví: Žena

Re: Visual Basic - vytvoření souboru

Příspěvekod IIwetKKa » 02 dub 2012 15:50

To je celý kód.


Děkuji
IIwetKKa

Uživatelský avatar
domitea
Tvůrce článků
Level 4.5
Level 4.5
Příspěvky: 1966
Registrován: červen 09
Bydliště: Královehradecký kraj
Pohlaví: Muž

Re: Visual Basic - vytvoření souboru

Příspěvekod domitea » 02 dub 2012 17:55

Myslel jsem kód programu, se vším všudy i zbytkem.
UNIX je systém jednoduchý, jen musíte být geniální, aby jste tu jednoduchost pochopili. Jedině OSS, vše co napíšu je pod GNU/GPL
Linux je mé koření života. Nikdy nevím, co pokazím! Registered user #550849

Dnešní počítače mi nestačí, pracuji na vlastním

IIwetKKa
nováček
Příspěvky: 34
Registrován: září 11
Pohlaví: Žena

Re: Visual Basic - vytvoření souboru

Příspěvekod IIwetKKa » 02 dub 2012 18:09

Kód: Vybrat vše

        Kill("D:\ID.txt")
        IO.File.Create("D:\ID.txt")

        pomocnas = MaskedTextBox1.Text
        kcas_cash = pomocnas.Length
        pomocnas = pomocnas.Remove((kcas_cash - 1), 1)
        pomocnas = pomocnas.Trim
        kcas_cash = Int(pomocnas)

        pomocnas = MaskedTextBox2.Text
        kcas_casm = pomocnas.Length
        pomocnas = pomocnas.Remove((kcas_casm - 1), 1)
        pomocnas = pomocnas.Trim
        kcas_casm = Int(pomocnas)

        pomocnas = MaskedTextBox3.Text
        pomocnas = pomocnas.Trim
        kcas_cass = Int(pomocnas)

        pomocnas = MaskedTextBox4.Text
        kcasgo_cas = Int(pomocnas)

        pomocnas = ComboBox3.SelectedItem.ToString()
        If pomocnas = "sekundy" Then
            kcasgo_jednotky = 1
        Else
            If pomocnas = "minuty" Then
                kcasgo_jednotky = 2
            End If
        End If
        If kcasgo_cas >= 5 Then
            pomocnai = pomocnas.Length
            pomocnas = pomocnas.Remove((pomocnai - 1), 1)
        End If

        kcas_ID = kcas_ID + 1

        FileOpen(1, "D:\ID.txt", OpenMode.Input)
        If Not (EOF(1)) Then
            ID = LineInput(1)
        Else
            ID = 0
        End If
        FileClose(1)


tak takhle je to celý ...


Děkuji
IIwetKKa


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Microsoft Office 2007 basic
    od neudy » 20 dub 2022 12:49 » v Kancelářské balíky
    1
    919
    od petr22
    20 dub 2022 13:19
  • Vytvoření jednotky E:/ v Průzkumníku
    od Martin Baroch » 26 srp 2022 03:26 » v Sítě - hardware
    3
    790
    od petr22
    26 srp 2022 14:15
  • DISCORD - vytvoření bota
    od LokyXVC » 05 zář 2022 17:15 » v Programování a tvorba webu
    0
    548
    od LokyXVC
    05 zář 2022 17:15
  • Vytvoření zástupce Malování na ploše - Win 11.
    od mmmartin » 02 úno 2022 18:53 » v Windows 10, 8, 7..
    2
    821
    od mmmartin
    02 úno 2022 19:12
  • Vytvoření vlastní sítě ve firemní síti
    od Archom » 26 říj 2022 14:13 » v Programování a tvorba webu
    4
    483
    od petr22
    26 říj 2022 16:01

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 0 hostů