- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: AMD Ryzen 9 9900X (100-100000662WOF)+ Samsung 990 PRO 2TB MZ-V9P2T0BW
- sziku69: Szólánc.
- Real Racing 3 - Freemium csoda
Hirdetés
-
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!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Battlefield 6
- Drón topik
- Samsung Galaxy Felhasználók OFF topicja
- Teljes verziós, ingyenes mobil játékok és alkalmazások
- Samsung Galaxy A56 - megbízható középszerűség
- Bestbuy játékok
- Motoros topic
- Lakáshitel, lakásvásárlás
- Samsung Galaxy A54 - türelemjáték
- További aktív témák...
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Telefon felváráslás!! Samsung Galaxy S22/Samsung Galaxy S22+/Samsung Galaxy S22 Ultra
- Dell latitude, precision, xps, magyar világítós billentyűzetek eladóak
- iKing.Hu - Samsung Galaxy S25 Edge Használt, újszerű állapotban 12 GB RAM / 512 GB tárhely
- GYÖNYÖRŰ iPhone SE 2020 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2183, 100% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest