- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- Magga: PLEX: multimédia az egész lakásban
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
- hcl: Kelj fel komám, ne aludjál
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
-
LOGOUT
Új hozzászólás Aktív témák
-
#10382336
törölt tag
Sziasztok!
Az alábbi eljárást a microsoft excel visual basic-el készítettem.
A lényege, hogy egy bináris fájlt,vagy annak egy részét olvassa be egy stringbe.Sub bintömbbe(forrásfájl, kezdő, hossz, fájlszám, s)
'forrásfájl: bináris fájl,ahonnan az adatokat olvassa
'kezdő: a forrásfájl fájlmutatója (1-el kezdődik)
'hossz: a beolvasás hossza
'fájlszám: a megnyitandó fájl sorszáma (1-el kezdődően)
's: ahová a bináris fájlt olvasni szeretnénk
Dim fájlhossz
Open forrásfájl For Binary As fájlszám
fájlhossz = LOF(fájlszám)
If hossz = -1 Then
hossz = fájlhossz
End If
If kezdő <= fájlhossz Then
Seek fájlszám, kezdő
If kezdő + hossz - 1 > fájlhossz Then
hossz = 1 + fájlhossz - kezdő
End If
s = Input(hossz, fájlszám)
Else
hossz = 0
End If
Close fájlszám
End SubA kérdésem az lenne, hogy ez hogy nézne ki a microsoft visual basic 2008
express edition programban, mert az egyszerű átmásolás nem működik.
Főleg a következő utasítások helyettesítésére lennék kiváncsi:Open forrásfájl For Binary As fájlszám
Seek fájlszám, kezdő
s = Input(hossz, fájlszám)
Close fájlszám
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Lenovo Ideapad Flex 5 - 14"FHD IPS Érintő - Ryzen 3 5300U - 8GB - 256GB SSD - Win11 - MAGYAR
- !AKCIÓ! Garanciás Klipsch R-120SW 30cm aktív mélysugárzó SubWoofer - 200W RMS / 400W Peak
- Eladó megbízható, szép Toshiba Satelite C850
- Csere - Beszámítás! Gamer PC : I5-14400F / 32GB DDR5 / RTX 4060 Ti / 1TB M.2 SSD
- Ryzen 5600, 32GB RAM, EVGA 3080 Gamer PC
- Újra Akcióban!!! Ducky One 2 Mini és SF billentyűzetek a bolti ár töredékéért! Számla+Gari
- Telefon Felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- ÁRGARANCIA!Épített KomPhone i5 13400F 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- DELL Precision 5560 i7-11850H 16GB 512GB T1200 FHD+ 1 év garancia
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest