Visual Basic

Re: multipage problem in printpreview?

18-Jun-09 4:47

Hi,

Not sure I understood you correctly.
Anyway, in .NET you get one PrintPage event per page.
You have to set PrintPageEventArgs.HasMorePages true in order to get an event for the next page.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

JC.KaNNaN18-Jun-09 22:19

JC.KaNNaN

18-Jun-09 22:19

ya i have put this event argument.
but page document page is counting morethan 100 pages...
i cant understand.. what s going on..
plz help me....

Yours,
KaNNaN

-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"

Mail To : foreverkans@gmail.com

Etracting certain text from PDF document into a database

kshincsk18-Jun-09 3:31

kshincsk

18-Jun-09 3:31

Hello.

I am currently working on a project to extract data from a PDF document into structured database tables. I have solved the problem of extracti9g the text from a pdf into a text box in vb6 form by using a readymade dll component that I referenced in my program.

Now my problem is, how to extract only certain pieces of data from the text based on some keywords that appear in the text. for example in the pdf document:

Existing Chemical Substance ID: 50–00–0
CAS No. 50–00–0
EINECS Name formaldehyde
EINECS No. 200–001–8
Molecular Formula CH2O

I need to extract "50-00-0" that appears after the keyword "CAS No.", then
the text "formaldehyde" that appears after the keyword "EINECS Name" and "200-001-8" that comes after "EINECS No.". I have database table which contain these keywords as field names. What I want is the table to look like this:

Sno CAS No. EINECS Name EINECS No.
1 50–00–0 formaldehyde 200–001–8

I would really appreciate it if someone could point me towards the string manipulation functions that I would need to use i order to do this.

Also How to get count of a keyword if it appears multiple times between two other keywords.

Thanks and Regards,
Kumar

Re: Etracting certain text from PDF document into a database

Dave Kreskowiak18-Jun-09 9:58

Dave Kreskowiak

18-Jun-09 9:58

VB6 String Manipulation[^]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Etracting certain text from PDF document into a database

kshincsk19-Jun-09 0:58

kshincsk

19-Jun-09 0:58

Dear Dave,

Thanks a lot for the suggestion.

I found just the perfect piece of code.

<br />
Public Function Extract(ByVal TextIN As String, Optional StartTag As String = " ", Optional ByVal EndTag As String = " ", Optional ByVal CheckCase As Boolean) As String<br />
    On Error GoTo LocalError<br />
    ' Extracts Text from string using start and end "tags"<br />
    'NB:    If EndTag is ommitted the entire string from:<br />
    '       StartTag to EndOfString is returned...<br />
    Dim lArray As Variant<br />
    Extract = ""<br />
    lArray = Split(TextIN, StartTag)<br />
    If IsArray(lArray) Then<br />
        Extract = lArray(1)<br />
        lArray = Split(Extract, EndTag)<br />
        If IsArray(lArray) Then<br />
            Extract = lArray(0)<br />
        Else<br />
            Extract = ""<br />
        End If<br />
    End If<br />
Exit Function<br />
LocalError:<br />
    Extract = ""<br />
End Function<br />

It works beautifully. Now, All I need to do is put all the keywords into a database and do a recursive search using those fields dynamically at runtime.

Thanks a million for your help.

Best Regards,
Kumar

Re: Etracting certain text from PDF document into a database

Dave Kreskowiak19-Jun-09 4:27

Dave Kreskowiak

19-Jun-09 4:27

kshincsk wrote:
I found just the perfect piece of code.

Great. Yet another Copy'N'Paste programmer...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

CopyMemory in VB.Net

Knight_Rider18-Jun-09 2:57

18-Jun-09 2:57

Hi,
i got a DSP function for a media player here. The problem is that it was made for VB 6 and uses "CopyMemory".
I read the article on "CopyMemory in .Net" here but the result i got isn't working :-S
This is the original code:

Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
Dim SBVocCut32DM As Single<br />
ReDim SBVocCut32Buf(length / 2) As Single<br />
<br />
Call CopyMemory(SBVocCut32Buf(0), ByVal buffer, length)<br />
    <br />
    For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
        SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
        SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
        SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
    Next SBVocCut32CSample<br />
    <br />
<br />
Call CopyMemory(ByVal buffer, SBVocCut32Buf(0), length)<br />
End Sub

Could anyone be so kind and help me out with the copymemory lines in here?

Thx!

Luc Pattyn18-Jun-09 3:34

18-Jun-09 3:34

Knight_Rider wrote:
CopyMemory in .Net

which article, there are several here on CP.

Knight_Rider wrote:
isn't working

that is really informative. Build problems? run-time problems? exceptions? what?

CopyMemory[^] seems to just copy some data in memory, something a simple for loop could do easily, provided source and destination do not overlap (if they do, the order must depend on the relative position).

Write your own copy loop and get done with it!

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

Knight_Rider18-Jun-09 3:39

18-Jun-09 3:39

Hi,
Equivalent of CopyMemory in .NET[^] This is the article i'm refering to Wink | ;-)

Yeah i tried that with the loop already:

For i As Integer = 0 To length / 2 - 1<br />
            SBVocCut32Buf(i) = buffer.ToString(i)<br />
        Next

and

<br />
For i As Integer = 0 To SBVocCut32Buf.Length - 1<br />
    buffer += SBVocCut32Buf(i)<br />
Next<br />

But it doesn't work either because the song doesn't sound (-> Bass.NET Audio library) different after activating this function..
Thanks anyway!

BTW: There is an AccessViolationException when i use copymemory in .NET!

Luc Pattyn18-Jun-09 3:43

18-Jun-09 3:43

Hi,

that article is voted rather low, there is at least one that looks better.

Both these for loops stink; there is no ToString() and no += involved, just COPY data.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

Knight_Rider18-Jun-09 3:47

18-Jun-09 3:47

Well it seems i don't completely understand what copymemory does in this particular function:
This line: CopyMemory(SBVocCut32Buf(0), buffer, length) -
Will everything contained in the buffer variable be copied into SBVocCut32Buf(0)? Or is the length parameter indicating that SBVocCut32Buf will be filled as follows:
SBVocCut32Buf(0) = buffer
SBVocCut32Buf(1) = buffer
SBVocCut32Buf(2) = buffer
...? May you explain that, please? thanks Smile | :)

Luc Pattyn18-Jun-09 3:51

18-Jun-09 3:51

I don't know, I provided a link to some documentation, read that.
It sounds like the memcpy() function in C.
Maybe Array.Copy() is the .NET equivalent.
Whatever it is, it will take no more than two lines of code.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

Knight_Rider18-Jun-09 4:08

18-Jun-09 4:08

This is what i got so far based on the arcticle... Maybe another person may help me?

    Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
        Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
        Dim SBVocCut32DM As Single<br />
        ReDim SBVocCut32Buf(length)<br />
       <br />
 Dim MyGC As GCHandle = GCHandle.Alloc(buffer, GCHandleType.Pinned)<br />
 Dim AddofLongValue As IntPtr = MyGC.AddrOfPinnedObject()<br />
<br />
        Marshal.Copy(AddofLongValue, SBVocCut32Buf, 0, length)<br />
        ' Call CopyMemory(SBVocCut32Buf(0), buffer, length / 2)<br />
<br />
        For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
            SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
            SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
            SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
        Next SBVocCut32CSample<br />
<br />
<br />
        Marshal.Copy(SBVocCut32Buf, 0, AddofLongValue, length)<br />
        'Call CopyMemory(buffer, SBVocCut32Buf(0), length / 2)<br />
    End Sub

Henry Minute18-Jun-09 5:27

Henry Minute

18-Jun-09 5:27

Luc Pattyn wrote:
Write your own copy loop and get done with it!

I love it when you are masterful! Big Grin | :-D

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Luc Pattyn18-Jun-09 5:30

Work on Ctrl +C in PropertyGridSelectedItem

18-Jun-09 5:30

Henry Minute wrote:
I love it when you are masterful!

I thought as much.
No beating around the bush.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

VB 8.018-Jun-09 0:57

VB 8.0

18-Jun-09 0:57

i am having a control on a panel and their properties in the propertygrid .

How to identify the Ctrl + C in this method

Public Function PreFilterMessage(ByRef msg As Message) As Boolean Implements IMessageFilter.PreFilterMessage

    Const WM_KEYDOWN As Integer = 256
       If msg.Msg = WM_KEYDOWN Then
           Dim keyCode As Keys = (CType(CType(msg.WParam, Integer), Keys) And Keys.KeyCode)
           If pg.SelectedGridItem.PropertyDescriptor IsNot Nothing Then
               If (pg.SelectedGridItem.PropertyDescriptor.DisplayName = "Picture" Or _
                           pg.SelectedGridItem.PropertyDescriptor.DisplayName = "BackgroundPicture" _
                               And Not keyCode = Keys.Delete And Not (keyCode = Keys.Control And keyCode = Keys.C) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.V) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.X) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.A) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Z) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Y)) Then
                   Return True
               End If
           End If
       End If
       Return False
   End Function

what i am doing is i am blocking keyboard characters and only Delete button i am allowing in the propertygrid for picture Property .

When Ctrl C , or ctrl v or ctrl x or ctrl y or ctrl z is pressed i have to work on the control to copy ,paste etc if the the propertygrid.selecteditem is picture also how can i achieve this one ??

Visual Basic

ibrahimsaa17-Jun-09 20:29

ibrahimsaa

17-Jun-09 20:29

What is vb

Rajesh Anuhya17-Jun-09 20:35

Rajesh Anuhya

17-Jun-09 20:35

see your subject line Poke tongue | ;-P

or

see this below link
waht is VB[^]

Rajesh B --> A Poor Workman Blames His Tools <--

0x3c017-Jun-09 20:47

0x3c0

17-Jun-09 20:47

Its a programming language. It comes in two flavours - legacy and normal. Legacy is obsolete, so I won't go into it here. Normal uses the .net framework, documentation for which is available on MSDN. It's easy to read, and is the beginners' language of choice (unless you like the elegant, flowing symbols of C#)

Between the idea
And the reality
Between the motion
And the act
Falls the Shadow

LCARS x3217-Jun-09 21:05

LCARS x32

17-Jun-09 21:05

Computafreak wrote:
(unless you like the elegant, flowing symbols of C#)

I think you mean "unless you like trying to figure out where the heck you're missing that curly bracket". Smile | :)

Visual Basic an excellent programming language that is popular with beginners and experts alike because it's easy to understand, and has a very English-like syntax. All while still having the power of the .NET framework at its disposal. Visual Basic is also very good for rapid application development thanks to the very well thought out Visual Studio IDE.

-Ray Phillips

0x3c017-Jun-09 23:24

0x3c0

17-Jun-09 23:24

It's probably a matter of taste (you have none Poke tongue | ;-P

). I don't like having to write out sentences to tell a computer what to do when I can just use notes (comparatively). Besides, the IDE highlights and indents brackets automatically, so it's not that big a deal

Between the idea
And the reality
Between the motion
And the act
Falls the Shadow