Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 12:02:00 - Alf Zell, i forum visual basic - allmänt, Tråden har 5 Kommentarer och lästs av 496 personer

Hur söker jag efter en text i en binär fil och sedan få adressen där denna text står ???
Gärna lite kod.

Affe


Svara

Sv: Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 13:37:00 - Sven Åke Persson

Hej
Testa det här

Option Explicit
'sökningen blir okänslig för stora och små bokstäver
Option Compare Text

Private Sub Command1_Click()
Dim tmpChunk As String, sOrd As String
Dim FileNum As Long, sLen As Long, pos As Long
FileNum = FreeFile
Open "C:\Test.txt" For Binary As FileNum
sLen = LOF(FileNum)
tmpChunk = Space$(sLen) 'buffer max 64 kb
Get #FileNum, , tmpChunk
Close #FileNum
sOrd = Text1.Text 'det sökta ordet
pos = InStr(tmpChunk, sOrd)
Label1.Caption = pos
End Sub

mvh
Sven


Svara

Sv: Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 15:02:00 - Alf Zell

Tackar det fungerar men problemet kan bli om filen är större än 64 Kb.
Vad jag egentligen är ute efter är att kunna läsa filbeskrivningen och därefter eventullt kunna skriva in en annan beskrivning.
Idag gör jag det genom att jag vet adressen där beskrivningen står och ändrar sen den med put och adress. Nuvarande adressen har jag fått genom att söka igenom filen i en editor. Problemet med den lösningen är att om jag ändrar något i koden så kan filen bli större el mindre och då ändras ju också addressen till filens beskrivning.


Svara

Sv: Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 16:11:00 - Sven Åke Persson

Hej
När jag skrev 64 kb , så var nog detta en gammal siffra
Jag testade med en 100 kb textfil det funkade Ua

Sen kommer problemmet hur man gör om textfilen
är av typ unicode.Logga in någon och kommentera detta.

DS


Svara

Sv: Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 20:17:00 - Sven Åke Persson

Hej
Efter Andreas tillrättaläggande beträffande VbTextCompare
Kan du skriva så här

Option Explicit
Private Sub Command1_Click()
Dim tmpChunk As String
Dim sOrd As String
Dim FileNum As Long
Dim sLen As Long, pos As Long
'**************************
FileNum = FreeFile
Open "C:\Test.txt" For Binary As FileNum
sLen = LOF(FileNum)
tmpChunk = Space$(sLen) 'buffer
Get #FileNum, , tmpChunk
Close #FileNum
sOrd = Text1.Text 'det sökta ordet
pos = InStr(1, tmpChunk, sOrd, vbTextCompare)
Label1.Caption = pos 'Startpunkt där du skall ingripa
End Sub

DS


Svara

Sv: Nästa fråga. Hur söka efter en text i binär fil ?

Postades av 2001-09-26 23:29:00 - Sven Åke Persson

Igen
Testade att söka enl metod ovan i en 5.6 Mb stor fil
Det funkade men tog lite tid.

DS


Svara

Nyligen

  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 931
27 965
271 780
569
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies