» Poradna » Programy

Polia a súbory vo Visual Basic 2005 Express Edition

 |   | 

Vie niekto poradiť ako vo VB 2005 EE zapísať polia do súboru a znova ich načítať?

Odpovědi na otázku

 |   | 

Hezký den,
např. použitím procedury FilePutObject (FileGetObject) třídy Microsoft.Visualbasic.FileSystem

Konkrétně např.
ULOŽENÍ:
Dim fr As Integer = FreeFile()
Dim oObj As Object
Dim iArray() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
FileOpen(fr, "C:\data345.bin", OpenMode.Binary)
oObj = iArray
FilePutObject(fr, oObj)
FileClose(fr)
NAČTENÍ:
Dim fr As Integer = FreeFile()
Dim oObj As Object = Nothing
FileOpen(fr, "C:\data345.bin", OpenMode.Binary)
FileGetObject(fr, oObj)
FileClose(fr)

No snad to pomůže. Ještě jednou hezký den

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Vďaka FeRi. Prajem pekný deň.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Visual Basic, Basic




Určitě si přečtěte

Inteligentní akvárium Bluenero se o rybičky postará samo

Inteligentní akvárium Bluenero se o rybičky postará samo

** Chcete chovat akvarijní rybičky, ale nemáte čas se o ně starat? ** Chytré akvárium je samo nakrmí a postará se o jejich komfort ** Projekt Bluenero zatím sbírá finance na Indiegogo

Karel Kilián | 20

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

** Co se může stát, když relativně maličký dron narazí do křídla letadla? ** Tuto otázku zodpověděli odborníci laboratorním pokusem ** Kvadrokoptéra způsobila významné poškození křídla

Karel Kilián | 19

Alza si za osobní odběr účtuje už 45 Kč. Když zaplatíte předem, dostanete slevu

Alza si za osobní odběr účtuje už 45 Kč. Když zaplatíte předem, dostanete slevu

** Osobní odběr v Alze vyjde na 45 Kč ** Když zaplatíte kartou předem, dostanete slevu 30 Kč ** Většina ostatních e-shopů poplatek za osobní odběr nevede

David Polesný | 171

Nová americká jaderná puma změní strategii boje

Nová americká jaderná puma změní strategii boje

** Bombardér Northrop Grumman B-2 Spirit amerického letectva nedávno svrhl jadernou pumu ** Šlo o test nové varianty pumy B61-12 ** Ta by měla mít hlavice schopné explodovat se silou 0,3 až 50 kilotun

Stanislav Mihulka | 63

Pojďme programovat elektroniku: Když už vás ten chumel součástek prostě nebaví

Pojďme programovat elektroniku: Když už vás ten chumel součástek prostě nebaví

** Levné cetky z Asie stojí dolar ** Postavíte s nimi skoro vše od teploměru po spínač zavlažování ** Má to ale jeden háček. Bude to ošklivé a povětšinou nekvalitní

Jakub Čížek | 22

Windows 10 už jsou na 700 milionech počítačů, ale není to jen labutí píseň?

Windows 10 už jsou na 700 milionech počítačů, ale není to jen labutí píseň?

** Windows 10 překonaly hranici 700 milionů instalací ** To je úctyhodné číslo a miliarda se blíží ** Analýzy ale i tak ukazují proměnu, jak používáme počítače a mobily

Jakub Čížek | 49


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku