String Compare Help
Im not quite sure where to start Im writing a time sheet program there are 7 pay roll codes
H , JS, AH, SL , AH, BL, ACC
But the only apply to some employees
eg. someone on salary can only have H , ACC where as a waged employee can have PH, SL , AH, BL
what i need to do is some how set up some rules
pseduo code
salarypaycodes = "H" , "ACC" wagepaycodes = "PH", "SL" , "AH", "BL"
select paytype case salary if code entered in salarypaycodes then do stuff else show error mesage end if case wage if code entered in wagepaycodes then do stuff else show error mesage end if end select
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
String Compare
I am new in VB, I have VB 6.0, I want to read data from text file and then want to process that data, and then want to save that data in new file. How can I read one word from file? GET command read whole line from file. 2ndly, how can I compare whole line with any charachter, for example
Line is " this is VB forum"
and I wasnt to remove all white space and want to save all data in following format in new file
This
is
vb
forum
In C++ I know I can read the whole line in array and than I can compare each element with white space (if(data[count] == " ") ....) how can I do that in VB. And how can I use strncpy("data", " mydata")... and strcpy() in VB.
Please perdon me for these basic questions. I read books but didn't get string compare function.
Thanks
Syed
Compare String
Hi,
I am using this function "Instr" to find the position of the first occurrence of one string within another. I have a text file that look like this:
ABCThis is an apple <-- I want to find this string 1
DEFEThis is a dog
GHQ123This is goodABC <-- I don't want this string 3
BGHThis is a book
Let say I want to search for the 1st string pattern "ABC" in the textfile, so I have this command:
If InStr(rdLine, "ABC") then tmpVar=rdline
but everytime the file is read, tmpVar is always assign with String 3 rather than String 1.
Is is possible for me to check this string pattern "ABC" where there is NO characters infront of "ABC" so that String 1 will return.
Those labels (ABC, DEFE, GHQ123, BHG) have variable length rather than fixed length.
Thanks in advance.
String Compare...
Hi again. Does anybody know how can i compaire strings? let's say i have "hello" and i want it to be compaired with another string and return true (if that was "hello") or false (if that was anything else). (i am actually asking for something like strcmp and strstr in c). how can i do that? also how can i get a result from the open function inicating if opening the file was succesful or not? if you can answer in any of the above question i would be realy happy! thanks anyway...
Compare String
I need to build a complex comparison string.
Starting with a simple one here I am just trying to compare if (1=1).
Is this possible to do with a string?
I am getting a type mismatch with this code
Code:
Dim a, b As Integer
a = 1
b = 1
Dim mystr As String
mystr = "(" & a & " = " & b & ")"
If mystr Then
'run some code
End If
String Compare
I got a problem with string comparison. I got two dates with the string format (i.e. "03/07/07" and "03/07/10") and I try to compare them. It was working nicely not so long ago but I had to make a few changes in my code and now it doesn't works. I think the problem may be some kind of weirdo blank characters placed after the end of my string (It seems unprobable but that's the only thing I can see). I post a screenshot of the content of my string and the spaces that follows. The string with the spaces at the end is always seen as smaller than the other one even when it isn't.... Help please !!!
String Compare
Hi
I have an array of string,I want to know which elements begin with "test"
How can i do it?
thanks
String Compare
Dear All,
Can some one give example for string compare using Like Operator?
String Compare - Reg
hi all
i want to know how we can find the difference between
two strings
help is appritiated
regards
kamesharun
Compare String
Hi,
I am using this function "Instr" to find the position of the first occurrence of one string within another. I have a text file that look like this:
ABCThis is an apple <-- I want to find this string 1
DEFEThis is a dog
GHQ123This is goodABC <-- I don't want this string 3
BGHThis is a book
Let say I want to search for the 1st string pattern "ABC" in the textfile, so I have this command:
If InStr(rdLine, "ABC") then tmpVar=rdline
but everytime the file is read, tmpVar is always assign with String 3 rather than String 1.
Is is possible for me to check this string pattern "ABC" where there is NO characters infront
of "ABC" so that String 1 will return.
Those labels (ABC, DEFE, GHQ123, BHG) have variable length rather than fixed length.
Thanks in advance.
String Compare
I have two strings to compare ,though they looks the same , the return boolean is false....
lstrString = (xlsheet.Cells(2, 1).Value) ' retrieve from excel which is empty
lstrString1 = ""
MsgBox IsNull(lstrString = lstrString1)
What happen?
Regards
Goh
How To Compare One String To.....HELP!!
Hello,
I'm trying to compare 2 strings(username, and password) to a textfie that I have loaded into my app, via richtextbox.
If there is a way to compare it without using the richtextbox that is cool. I have a textfile that has the usernames and accounts of my users in it. I get the user name and pass from the client they are using(winsock)..then I want to check if the username and password exists in my textfile. I thought I had this down, but it's not comparing right. Anyone know how to do this??? Thanks.
(eVB) How To Specified A String To Compare???
Hi everyone,
Example i got this string "ABCDEFG"
But i only want to compare position 3 to position 5 and that is the character "CDE" with what the user going to key in.
Anyone know how to extract just the position 3 to position 5 character to be compare??
Your help is greatly appreciated.
thanks
String Compare
Dear All,
Can some one give example for string compare using Like Operator?
Compare String To File
hi, this is a complicated one but i hope its possible.
what im doing is opening a file, loading so much of it into the ram (using get) then adding it to the end of another file (using put). then it repeats again so i get one file that contains a lot of other files.
now for the hard part. is there a way that i can compare the file being added and the current file with other files inside it and if theres a section of the 2 files thats longer than X amount of chars then put the positions into variables.
is that possible and will it be fast enough? the big file could be anything upto 1GB total. i dont want to wait more than a few mins for the whole thing to finish
Compare String Algorithm
Hello,
I am trying to compare two sets of strings and return a result in a percentage value for how similar the two strings are.
I realise this is a complicated function (well not a very easy one anyway), since there are many factors to analysing a percentage, like the number of words in each string, capitals and such, but still i am sure there should be some kind of function that does that.
if anyone can help me that would be great (and i'm sure there's some college student that required to do that in uni).
thanks,
Dor
How To Compare Recordset With String?
hi,
I am having this problem, I try to compare recordset with a string something like this...
if Adodc1.recordset!Name = "string" then
.....
this doesn't work Please help me.
thanks in advance.
Find String.... Compare It
OK...
I have a rich text box reading in a dat file.
I have a variable with the line i know is there.
I need the program to search the lines, to see if this is the same as the one i have stored.
Thanks for any help.
-Dave
String Compare Prob
hi
i started learning vb a few weeks ago and im making a prog where i need to compare two strings of numbers where the numbers are separated by a space and the strings have 7 numbers
Code:
a= " 23 2 12 5 26 21 38"
b= " 2 21 16 33 13 32 14"
'string b has 2 numbers that match string a
'so i would need the numbers that match to be displayd in a label and
'the number of numbers that match to allso be diplayd
'so i would get
label1.caption = "2" 'the number of numbers that match
label2.caption = "2 21" 'the numbers that match
ive tried a few things using instr and strcomp but i dont figure it out
How To Compare Recordset With String?
hi,
How to compare a recordset data with a string? I have something like this which doesn't work
If Adodc.Recordset!ColumnName = "String" Then
.....
I have a for loop before this statement to compare one record at a time.
I am trying to select only the record in this database which have data in "ColumnName" equal to the string I compare with.
Please help, thanks in advance.
String Compare In Query
Hello everyone.
i m using access db and vb6.0
i m using adodb for my conection
i want a query which will be executed in vb as
"select * from tble where 'a-a' ='a a'
that means match all strings having - and space should get matched.
i used replace function but in my code it gives an error as 'undefined finctuion replace' and the same query i executed in access, it successfully runs.
so is there any way ?
!help! Want To Compare A String With A Array
I've got another question: :-)
My prog defines the ending of a file (e.g. *.doc)
source:
EndingFile = Right(name1, 3)
my array(3) is listed with a few endings (ppt, doc, xls, txt...)
now I want to detect if the filending is contained in my array!
Who can help me? :-)
greetz
|proud to be a devil|
www.dbh-clan.de
String Compare (Resolved)
Hi, I am looking for string comparaison
I could use InStr(mystr, "x")
to search for x in the string
but, I would like something like Instr(mystr, "x" or "y")
and the function return the first one found.
Looking if that already exist before coding one myself.
Thanx all
How To Compare A Textbox As String
hi all
actually i'm working in vb6.i want to compare my textbox text as string type and long type and also date and boolean type .means i want to write like this:
if text1.text=string then
msgbox"string"
elseif text1.text=long then msgbox"long"
end if
means i want to compare with different datatypes .
plz help me .
String Compare Not Working?
Any ideas why this won't work. It runs fine without the strcomp if then condition. Thanks.
<%
cn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("nature.mdb")
set rstitle = server.createobject("ADODB.Recordset")
sql = "nature1query"
rstitle.Open sql, cn
Response.Write("<title>Car Site - ")
titlenumber=0
num1=1
num2=20
while not rstitle.eof
titlenumber=titlenumber+1
do while titlenumber >= num1 And titlenumber <= num2
string1 = strcomp(rs("custom1"),"Auto",vbtextcompare)
If string1 = 0 Then
Response.Write (rstitle("name") & " ")
end if
titlenumber=titlenumber+1
rstitle.movenext
loop
rstitle.movenext
wend
Response.Write("</title>" & vbCr)
rstitle.Close
Set rstitle = Nothing
%>
How To Compare Recordset With String?
hi,
How to compare a recordset data with a string? I have something like this which doesn't work
If Adodc.Recordset!ColumnName = "String" Then
.....
I am trying to select only the record in this database which have data in "ColumnName" equal to the string I compare with.
Please help, thanks in advance.
ps. I'm pretty new here but this forum is the best
String Compare Question...
Hi There...
My Database file has two similar values i would like to elimenate.... in the text file it goes..Quote: OEM HG MFG
0210001460 70-8556
021000-1460 70-8556
i extracted and attached my simple code below in a text file.
for having a look!
MeRRy cHriStMaSs !!
---------------------------------------------------------------------------------------------------------------------------------
Todays random quote: I am still determined to be cheerful and happy, in whatever situation I may be; for I have also learned from experience that the greater part of our happiness or misery depends upon our dispositions, and not upon our circumstances.
Martha Washington (1732 - 1802)
---------------------------------------------------------------------------------------------------------------------------------
Edited by - Hopeless on 12/23/2004 12:09:20 AM
Compare String Values
Good day,
I’ve got two string values and when I test them using IF statement I get False meaning they are not the same even though their values are the same. Can somebody please advise what might be wrong. I have a string value e.g “cat” and when I compare it with the value in the combo which is cat as well I get False as an answer. My test is as follows
If Trim(strOldvalue) <> Trim(cboAnimalTYPE.Text) Then
same = True
Else
same = False
end if
Thanks in advance
Compare A String Of Dates
OK I hope I can write this to sense of this for you all.
I would like to know how someone would populate an array and then compare the dates to find out what is the first and last dates in that array.
Example of this would be
02/01/2005,02/05/2005,02/19/2005,02/15/2005
I would like to output the first and last date in that range so the output for this would be
02/01/2005 to 02/19/2005
Edited by - microcyb on 3/7/2005 1:02:32 PM
Compare Each Substring From Beginning Of String
VISUAL BASIC - STRING MANIPULATION....need help!!!!
how to search each word in a given string from a file.txt...
let say - user enter input: "my name is abc"(in textbox Text1)
search each word starting from "my" until "abc" in a given file.txt.
the output will be :
my --- saya
name --- nama
is----ialah
abc ----not found
function to search in file.txt:
FileName = App.Path & "GERMAN.txt"
Text1 = LCase(Text1)
lenn = FileLen(FileName)
Open FileName For Input As #1
allwords = Input(lenn, #1)
Close #1
wordarray = Split(allwords, vbCrLf)
M = Len(Text1)
On Error GoTo nomatch:
For index = 0 To (UBound(wordarray) + 1)
Call getword(index, word, wordarray)
germanword = LCase$(Left$(word, M))
If germanword = Text1 Then
Call getanswer(word, Text1, wordprinted)
MsgBox wordprinted ----->have to display each word
Exit Sub
End If
Next index
nomatch:
MsgBox "NO WORD FOUND": Exit Sub
End Sub
for the time being, i can only enter 1 input...but i need to enter few words (max 10 words)...is there anybody that can help me?...thanks a lot
thanks a lot
Advanced String Compare, Searching
Hi guys, I need your help, let say i want to search a file call: "Hello World.txt" in my PC. However, let say that "Hello World.txt" doesn't exit on my pc but a file "World Hello.txt" exist. So i want to make a function to find both file, the first thing i'm thinking of is to check for the lenght of the string but how to check word to word ??
Hello World.txt = World Hello.txt
Case-insensitive String Compare
Quickie - just looking for an existing function to compare example and eXamLe which will return true, without having to overload string.compare functions.
Compare String To URL Of New Web Browser Window
I'm using the VB 5 web control in my new browser. I want to kill popup windows.
I need to know how I can get the URL from a new window when it opens.
brwwebbrowser_Newwindow2 doesn't seem to have the URL varient like the other subs/functions.
When I try to declare the URL in brwwebbrowser_Newwindow2 it give an error.
What can I do?? What can I use??
Thanx
Compare Each String With Strings In Array?
I need to search an array of strings and compare each string with a given string.
I count how many characters in the string that equals the string of the array.
In the beginning the array is empty. Depending on the result of the compare the array grows. That means that the array is small in the beginning but will get big as time evolvs. Makes the application slow!
What I need to get is the "max" of the characters in the string that matches a string in the array.
Almost like this:
Code:
For i = 1 To x
count = 0
For m = 1 To 10
If Mid(string, m, 1) = Mid(Array(i), m, 1) Then
count = count + 1
End If
Next m
If count > 8 then do something...
Next i
Compare The String(which Includes Pipe)
Hi,
I am devolping project in vb6.0 & ms-asscess.
In my database i am storing values deleminted by "/". now i want to compare that values with single values.
E.g.
If in my database I ma having values 1/2
I want to compare it with 1
so it is like
1/2 =1
Plz.help me how to do this.
Project's dead line is very near.
String Compare Query [Re-opened]
Hi,
I have 2 tables both containing the same Keys. Table1 contains a sentence (along with key fields). Table2 contains a list of words. See below
Code:
Table1
Key1 Key2 Key3 Sentence
0001 0012 0235 'This query is really bugging me.'
0001 0012 0236 'This query is really bugging me today.'
0003 0013 0237 'This query is really bugging me, help.'
0003 0013 0238 'This query is really bugging me.'
Table2
Key1 Key2 Word WordCount
0001 0012 Query 2
0001 0012 Now 2
0003 0013 Home 3
0003 0013 Bugging 3
0003 0013 This 3
What I need to do is determine if any of the words in the 'Word' field appear in the sentences in the 'Sentence' field. I want a list of the keys for each record in Table1 that have no words from the 'Word' Field. Below is the query I have so far. It works until I have more than one key in 'Table2', after that it just crashes.
Query:
Code:
SELECT Table1.Key1, Table1.Key2, Table1.Key3
FROM Table1 INNER JOIN Table2 ON Table2.Key1 = Table1.Key1 AND Table2.Key2 = Table1.Key2
WHERE CHARINDEX(Table2.Word, Table1.Sentence, 0) = 0
GROUP BY Table1.Key1, Table1.Key2, Table1.Key3
HAVING COUNT(Table1.Key1) =
(SELECT DISTINCT Table2.WordCount
FROM Table2 INNER JOIN Table2 ON Table2.Key1 = Table1.Key1 AND Table2.Key2 = Table1.Key2);
Guidence Needed
Cyphin
~Of all the things I've lost, I miss my mind the most.~
~Iz vseh veshei chto ya poteryal, ya bol'she vsego skuchayu po rassudku.~
Edited by - Cyphin78 on 11/3/2004 11:38:38 AM
Best Way? Compare String To List Of Strings(RESOLVED)
Trying to figure out the best way to approach this.
Basically I need to compare files(different each time) against a list of other strings to see if the file contains any of the strings(will be adding new ones to the list as I go on). I'll try to explain a bit more. For an example let's say I have 10 files and a list of 20 strings to look for. Keep in mind that when running live it will be processing 100's of files and looking for maybe 100+ strings so I want to make sure I code it optimal.
Not sure the best way to store the list to check for because I want it to be easy to add new ones to. Does it make sense to store in listbox and add new ones to it. Read file1 into a variable, loop the listbox items and check for Instr on the file1 contents, then read file2 and do the same thing?
Seems like there would be a better way to handle this.
Any suggestions appreciated.
Concatenating Two Fields To Form A String To Compare Against A UCase ?
Im trying to use a UCase LIKE Search...
This is okay if I only want to search a word/words from one field, but how do I do it if I need to join 2 fields ?
Eg. I have 2 fields CustomerFirstname and CustomerSurname
What happens if the user types into the search "VisualBasic Kid"
where VisualBasic is the CustomerFirstname and Kid is the CustomerSurname ?
It won't find anything...
Maybe someone can take a look at my string and tell me where I'm going wrong...
Code:
Select * From Customer Where UCase(CustomerSurname) LIKE
'%" & UCase(txtSearch) & "%' OR (UCase(CustomerFirstname) &
UCase(CustomerSurname)) LIKE '%" & UCase(txtSearch) & "%'", db,
adOpenStatic, adLockOptimistic
Thanks for any help once again
Concatenating Two Fields To Form A String To Compare Against A UCase ?
Im trying to use a UCase LIKE Search...
This is okay if I only want to search a word/words from one field, but how do I do it if I need to join 2 fields ?
Eg. I have 2 fields CustomerFirstname and CustomerSurname
What happens if the user types into the search "VisualBasic Kid"
where VisualBasic is the CustomerFirstname and Kid is the CustomerSurname ?
It won't find anything...
Maybe someone can take a look at my string and tell me where I'm going wrong...
Code:
Select * From Customer Where UCase(CustomerSurname) LIKE
'%" & UCase(txtSearch) & "%' OR (UCase(CustomerFirstname) &
UCase(CustomerSurname)) LIKE '%" & UCase(txtSearch) & "%'", db,
adOpenStatic, adLockOptimistic
Thanks for any help once again
Function To Find First Digit Or Compare Numerics In Text String
I'm looking for a Worksheet function formula or VBA function to report the character position of the first digit in a text string.
Or ultimately a function to compare the first occuring numeric value within a text string. Can this be done?
When comparing two strings such as these:
Grade 02
Grade 2
or
Grade 2
Grade 3 Lvl 1
I want to get alerts (vba) where the one in the 2nd row is a higher digit or grade than 1st row eg. In two these examples the first pair are essentially the same level (no alert) but in the 2nd pair the 2nd row is a higher grade and I want an alert. Just need the boolean which can be used to color the cells, or msgbox or whatever.
What is the most efficient method of doing this?
Find String In Text File And Compare What User Types
hallo, ok so what i want to do i want to put numbers into a text file alot of em in this order
719
121
233
121
like a different number each line and i want visual basic to find a certain string while the user types the 3 digit code an display text like
if area1.text = "719" then
label1.caption = "Colorado"
Else ?????????????????? like go threw the whole list finding what the user types and display info about it ty for your help
Compare String In FlexGrid Cell To Excell Sheet Cell
I have a string in a cell of a flexgrid that I want to compare to a string in an excel sheet cell
I tried doing this:
MsFlexGrid1.Col=0
MsFlexGrid1.Row=0
If MSFlexGrid1.Text = XLSheet3.Cells(3, 1) Then
'Do the stuff I want to do
End If
But it gives me a runtime error and points to this.
Are they of different types? How can I compare these two strings?
How Can I Compare Time? A Problem Regarding On How To Compare Time
i have this project the daily time record. I almost finished it until i realized that there is no need for the emplyee to choose login AM, logout AM, login PM, logout PM. They just have to log and the time will just compare if the time is for logging in or for logging out. whether it is am or pm.
folks, i really appreciate if you help me with this. Thanks
Compare Ini's
I've made an little mIRC script which uses an ini file. I use it on my PC and on my laptop
When someone sends me a PM (personal msg) it's checks the text of that pm, and when that text is in the ini, it won't show the pm to me.
The ini file looks like:
[UserBlock]
[MsgBlock]
httpwwwsunicc=block
httpsecretvieounicc=block
httpsecretvideounicc=block
[Settings]
some settings
My question is. How can i compare the [MsgBlock] part (PC and Laptop) and make them equal
So when there is a line on my laptop, but not on my PC, it will add it on my PC
(I know how to read ini files etc ... )
Edit by alp: I changed your example...please keep it clean next time and post your file related questions in the File I/O forum.
Compare
Hi,
what's the difference between a binary comparison (vbbinarycompare) and a text comparison (vbtextcompare)?
Thanks.
Compare 2 HDC's
I am wanting fast code to compare two Display Contexts for example i lets say i have 2 picturebox's and i have some image drawn on them... how could if know if they are the same image?
Compare Pdf...
hi..
I want to execute the menu item "Documents " in adobe proffession 7.0,
i tried like this but its not working...
Like this
Code:
ok = AcrobatApp.MenuItemExecute("DigSig:ToolsDiff")
My problem is i cant able to fire the event.. this ok always returning False..
I don know how to proceed next.. is there any other way to do this,,,
Here is the code
Code:
Function CompareTwoPdfFiles( _
ByVal OldFileName As String, _
ByVal NewFileName As String _
) As Boolean
Screen.MousePointer = vbHourglass
' Initialize Acrobat by creating AcrobatApp object.
' If Acrobat is already running,
' it will get the existing acrobat object.
Dim AcrobatApp As Acrobat.CAcroApp
Set AcrobatApp = CreateObject("AcroExch.App")
' Show Acrobat (skip this for a background server).
AcrobatApp.Show
' Is a PDF already open?
Dim OpenPdfCount As Integer
OpenPdfCount = AcrobatApp.GetNumAVDocs
Dim DocumentWasOpen As Boolean
DocumentWasOpen = (OpenPdfCount > 0)
Dim ok As Boolean
ok = True
' Open the "New" file first,
' so it appears on the right side in the comparison output.
Dim NewPd As Acrobat.CAcroPDDoc
Dim NewAv As Acrobat.CAcroAVDoc
If ok Then
Set NewPd = CreateObject("AcroExch.PDDoc")
ok = NewPd.Open(NewFileName)
If ok Then
Set NewAv = NewPd.OpenAVDoc(NewFileName)
Else
Screen.MousePointer = vbNormal
MsgBox "Could not open PDF file: " & NewFileName
End If
End If
' Open the "Old" file second,
' so it appears on the left side in the comparison output.
Dim OldPd As Acrobat.CAcroPDDoc
Dim OldAv As Acrobat.CAcroAVDoc
If ok Then
Set OldPd = CreateObject("AcroExch.PDDoc")
ok = OldPd.Open(OldFileName)
If ok Then
Set OldAv = OldPd.OpenAVDoc(OldFileName)
Else
Screen.MousePointer = vbNormal
MsgBox "Could not open PDF file: " & OldFileName
End If
End If
If ok Then
ok = AcrobatApp.MenuItemExecute("DigSig:ToolsDiff")
If Not ok Then
Screen.MousePointer = vbNormal
MsgBox "Could not compare files"
End If
End If
Dim NoSave As Boolean
NoSave = True
If ok Then
Dim DiffAv As Acrobat.CAcroAVDoc
Set DiffAv = AcrobatApp.GetActiveDoc
Dim DiffPd As Acrobat.CAcroPDDoc
Set DiffPd = DiffAv.GetPDDoc
ok = DiffPd.Save(PDSaveFull, "c:sampleComparison.pdf")
If Not ok Then
Screen.MousePointer = vbNormal
MsgBox "Could not save comparison output file"
End If
If Not (DiffAv Is Nothing) Then
DiffAv.Close (NoSave)
Set DiffAv = Nothing
End If
If Not (DiffPd Is Nothing) Then
DiffPd.Close
Set DiffPd = Nothing
End If
End If
If Not (OldAv Is Nothing) Then
OldAv.Close (NoSave)
Set OldAv = Nothing
End If
If Not (OldPd Is Nothing) Then
OldPd.Close
Set OldPd = Nothing
End If
If Not (NewAv Is Nothing) Then
NewAv.Close (NoSave)
Set NewAv = Nothing
End If
If Not (NewPd Is Nothing) Then
NewPd.Close
Set NewPd = Nothing
End If
' End Acrobat only if it was not existing before,
' or it was existing but no PDF file was open.
If Not (AcrobatApp Is Nothing) Then
If Not DocumentWasOpen Then
AcrobatApp.CloseAllDocs
AcrobatApp.Exit
Set AcrobatApp = Nothing
End If
End If
Screen.MousePointer = vbNormal
CompareTwoPdfFiles = ok
End Function
|