数据库检索问题，立即给分。。

龙华 2002-12-26 03:48:42

如何对二进制字段进行检索？
如：某长篇小说被存为二进制字段，现在检索其中是否有关键字“1999年他到延安”。如何实现？
谢谢。

...全文

102 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

龙华 2003-01-02

打赏
举报

龙华 2002-12-30

打赏
举报

youxia001 2002-12-27

打赏
举报

龙华 2002-12-27

打赏
举报

SYMXXY 2002-12-27

打赏
举报

龙华 2002-12-26

打赏
举报

龙华 2002-12-26

打赏
举报

很对不起，你提的方法太复杂了。
应该有简单的多的方法。

zqfleaf 2002-12-26

打赏
举报

Public Sub ConvertToText(BinText As String)
Dim BinChar As String
Dim CharX As String
Dim ConvertedMessage As String
Dim Z As Integer
Dim NewChar As Integer
Dim Bx As Integer
Dim BBx As Integer

For Bx = 1 To Len(BinText)
BinChar = Mid(BinText, Bx, 8)
Z = 128
NewChar = 0

For BBx = 1 To 8
CharX = Mid(BinChar, BBx, 1)
If CharX = "1" Then
NewChar = NewChar + Z
Z = Z / 2
Else
Z = Z / 2
End If
Next BBx

ConvertedMessage = ConvertedMessage & Chr(NewChar)
Bx = Bx + 7

Next Bx

BinText = ConvertedMessage

End Sub
Public Sub ConvertBin(TheString As String)
Dim C As Integer
Dim DD As Integer
Dim EE As Integer
Dim BinArray(7) As String
Dim TempString As String
Dim NewTheString As String

For C = 1 To Len(TheString)
DD = Asc(Mid(TheString, C, 1))

BinArray(7) = DD Mod 2
DD = DD \ 2
BinArray(6) = DD Mod 2
DD = DD \ 2
BinArray(5) = DD Mod 2
DD = DD \ 2
BinArray(4) = DD Mod 2
DD = DD \ 2
BinArray(3) = DD Mod 2
DD = DD \ 2
BinArray(2) = DD Mod 2
DD = DD \ 2
BinArray(1) = DD Mod 2
DD = DD \ 2
BinArray(0) = DD Mod 2

For EE = 0 To UBound(BinArray)
TempString = TempString + BinArray(EE)
Next EE

NewTheString = NewTheString + TempString

TempString = ""

Next C

TheString = NewTheString
NewTheString = ""
End Sub

龙华 2002-12-26