Új hozzászólás Aktív témák

• #4110 #10382336 törölt tag

  Új Válasz 2009-11-24 20:40:04 #4110

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #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 Sub

  A 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