|
I am using the "Microsoft VBScript Regular Expressions 5.5" COM object in
VB6SP5 to search for a list of numbers in a CSV string (loaded from a file)
that is made up of 2-digit zero-filled numbers. The CSV string could contain
thousands of values.
Someone on vbforums.com posted some code that demonstrated an API method for
finding a string in a file very quickly. It did this by first reading the
file into memory. Someone else responded to the post with an even quicker API
method (Merri's API Method) that removed the need for any Unicode-to-Ansi
string conversion. Merri's API Method is significantly faster on large files
though not so much on the sample data file included in my test project that
can be downloaded from here.
The code I have put together so far runs both methods successfully for
simple search strings but only the slower API method, which includes the
Unicode-to-Ansi conversion, is successful in returning regular expression
matches.
If you run the code you will see a drop-down list containing three sample
search strings, one simple string and two regular expressions which you can
run both API methods against. The results for each method are shown
separately.
I would like to make use of Merri's API Method to perform regular expression
searches on the file without the overhead of any Unicode-to-Ansi conversion
on the file data itself. However, I will need to do the conversion on the
actual matches found so that I can process them further. I think this will
involve the use of pointers which I'm not familiar with. The function that
performs the regular expression search and produces the match collection is
called TestRegExp.
I hope someone can help.
Best regards and thanks in advance.
modified on Monday, December 1, 2008 2:34 AM
|
|
|
|
|
VB6 is long dead, few people use it, and those that do, mostly shouldn't. If you want to attract the few people who still use or know VB6, you should put VB6 in your subject line, so people see it.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
Hi Friends,
I am working on Steganography...Actually I am opening the picture in the buffor and then converting text into bytes and finally append this byte code back to image.......The problem is this some body told me that any body can hack data from buffor,but I dont know how a some one can open buffor and from buffor can hack my data...Please tell me how I can See my data In buffor during Steganography....?
|
|
|
|
|
What text are you converting to bytes ? What the hell are you talking about ?
sarfarazaliqureshi wrote: problem is this some body told me that any body can hack data from buffor
Sounds like you're surrounded by idiots. If the buffer is memory in your app, it's far from trivial for someone to get at it. If it's in a file, then, of course, any file can be modified by anyone who wants to. What does your app do that you have to worry about such security ? The easy way around is to store a checksum to validate the bytes against.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
sarfarazaliqureshi wrote: problem is this some body told me that any body can hack data from buffor
Really? Find that kind of hard to believe. If the buffer is stored as private, then nothing should be able to see it.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Stenography is not "hiding your data on the end of an image file". Stenography is doing things like twiddling the least significant bits in an image to hide information - actually hiding the data *in* the image.
Also, yes, people can get access to your processes' memory and read the contents of your buffer.
In your case they will just cat the picture file to the console and read the plaintext.
|
|
|
|
|
Thanks dear but can plz write some code for this line
"In your case they will just cat the picture file to the console and read the plaintext."
actually I have trouble to do this....
|
|
|
|
|
I have made some program that will be used to update the sql server database. The data was taken from Access Database. In other words, i tried to move the data from Access to Sql server. Here is the code that i developed :
Option Explicit
Public dbacc As ADODB.Connection
Public rsAcc As ADODB.Recordset
Public rsSql As ADODB.Recordset
Public dbSQL As ADODB.Connection
Public rsSql2 As ADODB.Connection
Public Sub Update()
Dim updaterec, updaterec2 As String
Dim sPath As String
Set dbacc = New ADODB.Connection
Set rsAcc = New ADODB.Recordset
Set rsSql = New ADODB.Recordset
Set dbSQL = New ADODB.Connection
Set rsSql2 = New ADODB.Connection
Dim sConnACC As String
sConnACC = "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source=\dbsimonev.mdb;"
Dim sSQL As String
sSQL = "SELECT * FROM tblData"
Dim sSQL2 As String
Dim sSQL3 As String
sSQL2 = "SELECT * FROM T3B_MON"
sSQL3 = "SELECT * FROM T3B_MONK"
dbacc.ConnectionString = sConnACC
dbacc.Open
dbSQL.Open _
"Provider = sqloledb;" & _
"Data Source={SANJILUFFYCOMP};" & _
"Initial Catalog={simonev};" & _
"User ID={UserName};" & _
"Password={Password};"
rsAcc.ActiveConnection = dbacc
rsAcc.LockType = adLockOptimistic
rsAcc.CursorType = adOpenKeyset
Set rsAcc = dbacc.Execute(sSQL)
rsSql.ActiveConnection = dbSQL
rsSql.LockType = adLockOptimistic
rsSql.CursorType = adOpenKeyset
Set rsSql = dbSQL.Execute(sSQL2)
rsSql2.ActiveConnection = dbSQL
rsSql2.LockType = adLockOptimistic
rsSql2.CursorType = adOpenKeyset
Set rsSql2 = dbSQL.Execute(sSQL3)
Do While Not rsSql.EOF
rsSql.MoveNext
Do While Not rsAcc.EOF
rsAcc.MoveNext
If rsAcc(1).Value = rsSql(1).Value Then
If rsSql(3).Value = rsAcc(2).Value Then
If rsSql(2).Value = rsAcc(3).Value Then
If rsAcc(4).Value <> rsSql(17).Value Then
If rsAcc(2).Value = 1 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET01,REALIS01) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 2 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET02,REALIS02) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 3 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET03,REALIS03) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 4 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET04,REALIS04) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 5 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET05,REALIS05) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 6 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET06,REALIS06) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 7 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET07,REALIS07) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 8 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET08,REALIS08) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 9 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET09,REALIS09) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 10 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET10,REALIS10) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 11 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET11,REALIS11) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
If rsAcc(2).Value = 12 Then
updaterec = "INSERT T3B_MON (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value , rsAcc(3).Value, rsAcc(2).Value, rsAcc(4).Value*1000000, rsAcc(5).Value*1000000)"
updaterec2 = "INSERT T3B_MONK (KDSATKER,BULAN,TAHUN,TARGET12,REALIS12) values (rsAcc(1).Value, rsAcc(3).Value, rsAcc(2).Value, rsAcc(6).Value*1000000, rsAcc(7).Value*1000000)"
End If
End If
Set rsSql = dbSQL.Execute(updaterec)
Set rsSql = dbSQL.Execute(updaterec2)
End If
End If
End If
rsAcc.MoveNext
Loop
rsSql.MoveNext
Loop
MsgBox "update is finished"
rsSql.Close
rsAcc.Close
Set rsSql = Nothing
Set rsAcc = Nothing
dbacc.Close
dbSQL.Close
Set dbacc = Nothing
Set dbSQL = Nothing
End Sub
when i compiled it, nothing was error, all worked fine. But the problem is nothing happened to the sql server database when i executed this program. Nothing was updated in the sql server database. What could make it wrong or why didn't something happen??. is it because the code or another else?
Please need your help.
Thanks in advance.
modified on Sunday, November 30, 2008 12:33 PM
|
|
|
|
|
You propably have some problem in the logic (loops or if statements) so the best way to find it is to use debugger.
Only thing I noticed is that the outer loop is made against SQL Server. You loop while there are records in T3B_MON in SQL Server. If you're moving data to SQL Server, rsSql may be empty so EOF is true. Also you don't seem to use rsSQL2 anywhere.
|
|
|
|
|
Hi All ,
I want to add a fnctionality in my hotel managment project with VB.Net to set a alaram factility to certain extension (room). The alaram is initiated by the front desk operator . Can anyone help me on the same , how can this thing implemented.
|
|
|
|
|
|
You beat me to it.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
For once it happened this way 
|
|
|
|
|
I think it happens often, but never really noted.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Paul!
I am not sure wat do u want to say!
|
|
|
|
|
I was responding to what Mika said.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Mika!
Can u help me with some Code or API
Thanks in Advance
|
|
|
|
|
|
How to write a program to shutdown, restart and log off the computer by using VB.NET 2005
|
|
|
|
|
|
Thanks Mika for your help
|
|
|
|
|
|
I second Mika with the search tool on this site. Use it and use it well since you can find alot of awesome gems around here 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
|
If VB6 it was simple, but this is what I have.
'My Bee Contacts' represents a contact folder in Outlook. But the code refuses to find it unless I use the .PickFolder command and actually select it. Which I don't want to do. I simply want to enter a name in a textbox, like 'My Bee Contacts' then the code runs through the contacts in that folder- then I can dump them in a file or use Messagebox to display them ... etc.
Dim OutlookApplication_definst As New Microsoft.Office.Interop.Outlook.Application
Dim olApp As Microsoft.Office.Interop.Outlook.Application
Dim objName As Microsoft.Office.Interop.Outlook.NameSpace
Dim Folder As Microsoft.Office.Interop.Outlook.MAPIFolder
olApp = OutlookApplication_definst.Application
objName = olApp.GetNamespace("MAPI")
Folder = objName.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts).Folders("My Bee Contacts")
For Each Item In Folder.Items
If Len(Trim(Item.JobTitle)) = 0 Then Item.JobTitle = "(none)"
If Len(Trim(Item.ManagerName)) = 0 Then Item.ManagerName = "(none)"
MessageBox.Show(Item.JobTitle & "|" & Item.Email1Address & "|" & Item.FullName & "|" & Item.ManagerName)
Next Item
olApp = Nothing
Folder = Nothing
objName = Nothing
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
