|
I'm trying to get all images tags from an html file...
i'm clearly doing something wrong but cant find what...
I only get 5-6 link on a page containing at least 30-40 img tag.
Some to take a look ?
<br />
dim data as string ' contains the html data<br />
Dim resultcol As New Collections.Specialized.StringCollection<br />
For Each mt As Match In Regex.Matches(data, "\<img src=['""](?<url>[^'""]+?)['""]", RegexOptions.IgnoreCase Or RegexOptions.Singleline)<br />
Dim deb As String = mt.Groups("url").Value<br />
If Not resultcol.Contains(deb) Then<br />
resultcol.Add(deb)<br />
End If<br />
Next<br />
|
|
|
|
|
You forgot that there may be other attributes between the "img" tag and the "src" attribute (e.g., "alt". Try to change your regex from "img src" to, e.g., "img.*?src" and your problem will be solved.
I see dead pixels
Yes, even I am blogging now!
|
|
|
|
|
Hia Daniel,
And thanks for your answer.
You're right about this point.
But I still cant get all the tags.
For sample:
I catch
<br />
<img src="themes/smartDark/images/7px.gif" width="7" height="7"><br />
but not
<br />
<img src="http://www.thehorde.be/l2/yy2.gif" /><br />
The only difference I see is the extra pair in the catched match.
But weird,I dont catch
<br />
<img src="images/blocks/group-4.gif" height="14" width="17"><br />
while I catch this one , later in the file
<br />
<img src="images/logononame.gif" border="0" alt="hosted by Noname Team" title="www.noname.fr" ><br />
They look the same
|
|
|
|
|
Ricalawaba wrote:
They look the same
Try to change your expression from "img src" to "img\s*src": webpages often have multiple space chars, or even have tabs or other chars (like #161) that look like a space, but is not a space. \s will match all of them.
I see dead pixels
Yes, even I am blogging now!
|
|
|
|
|
I am running a COM Add-in that connects to a database through a webservice. When does this service get initialized? If I want to connect to a different database based on the button that I click in my add-in can I use an if statement somewhere (and if so where?)to determine which one to use?
|
|
|
|
|
btoyer wrote:
When does this service get initialized?
The webservice is running all the time on the server, just like any website.
btoyer wrote:
If I want to connect to a different database based on the button that I click in my add-in can I use an if statement somewhere (and if so where?)to determine which one to use?
If each button represents a different database, then you don't have to use an If statement. Just handle the Click event of each button and connect to the database in there. But then again, this depends entirely on how your UI and code is designed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have decided that adding a second web service is probably the way to get two different connections. It seems if I don't I won't be able to change the connection string of the one based on button clicks because it will already be running.
That said, here is a sample from my connect.vb file. It shows a testing (dev) version of a button and the real version of the button. I want them both to bring up the same form with a different db connection. Is there a way to pass a variable that gets set in these subs to the form?
Private Sub MyUpload_dev_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles MyUpload_dev.Click
Dim frm As New frmGOUpload
frm.XLA = excelApp
frm.WS = excelApp.Workbooks(1).ActiveSheet
frm.Show()
End Sub
Private Sub MyUpload_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles MyUpload.Click
Dim frm As New frmGOUpload
frm.XLA = excelApp
frm.WS = excelApp.Workbooks(1).ActiveSheet
frm.Show()
End Sub
This is kind of what I am thinking of trying to do in the form:
If <variable> = 'dev' then
Dim wsrv As New SEOWS_dev.Service1
else
Dim wsrv As New SEOWS.Service1
end if
|
|
|
|
|
hi
when i am starting debug of my program this error be appeared:
An unhandled exception of type 'System.ArithmeticException' occurred in system.drawing.dll
Additional information: Overflow or underflow in the arithmetic operation.
please help me
thanks
|
|
|
|
|
That's going to be difficult to do considering there are about a thousand causes of this and you haven't posted the code where your app breaks. I would suggest stepping through your code until the problem occurs (Hit F11 to step to the first line of your code) then posting the section of code around that point or the code that leads up to that point.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
That means your code doesn't work.
If you'd like to be more specific on what is breaking (ie. Code Snippits of problem area), we might be more specific on what your problem is
|
|
|
|
|
I need some help mapping some printers, i have about 1000 computers with diffrent names for each section. I have about 15 sections of computers. I have about 3 printers in each section. I need to write a VB login script to map these printers to their section. i was tring somehow search for a string in the network computer name and then if it matches i want it to map the printer. heres what i have so far... any help will be greatly appreciated.
objNetwork = WScript.CreateObject("Wscript.Network")
Network = CreateObject("Wscript.Network")
compname = network.computername
Dim name As String
'stops it from mapping the printer twice
For Each strPrinter In objNetwork.EnumPrinterConnections
objNetwork.RemovePrinterConnection(strPrinter, True, True)
Next
name = kgwfd
if name.search(kgw) = true then map
If network.ComputerName = "KGWLIB-12.mayplace.org" Then
' "KGWLIB-12.myplace.org"
Network.AddWindowsPrinterConnection("\\keigbdc\hp4000ke")
Network.SetDefaultPrinter("\\keigbdc\hp4000ke")
' "KGWLIB-13.myplace.org"
Network.AddWindowsPrinterConnection("\\keigbdc\hp4000ke")
Network.SetDefaultPrinter("\\keigbdc\hp4000ke")
End If
end
End Sub
End Class
|
|
|
|
|
Help with what? You haven't said what anything about the problem your having.
I take it these are Windows Servers hosting the printers?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok, I know what you are thinking. Why was this posted on the VB.Net forum? Well, let me explain.
I Have a DHTML text editor that I currently import Microsoft Word documents into via IE. The only problem is only text comes across currently. I came across info on MSDN that said images can be saved out of Word 2003 as bmp files. So far I can open the document, get a handle on each image, and copy them to the clipboard, but for some odd reason, probably my fault , I can't seem to save them to the hard drive.
I've included the code below, perhaps you can assist, especially if you know MS VB.NET and VBScript better than I, which wouldn't be difficult to do. Basically I get the image copied to the clipboard fine but then I don't seem to be saving anything out. Nothing fails, it just doesn't save. Any help would be greatly appreciated.
Sub ImportWordDoc()
On Error Resume Next
Set wApp = CreateObject("Word.Application")
wApp.Activate
wApp.WindowState=0
call wApp.Resize(400, 400)
Set wDoc = wApp.Documents.Open(document.all.FileToOpen.value)
wApp.Visible = true
For index = 1 To wDoc.InlineShapes.Count
inlineShape = ""
Set inlineShape = wApp.ActiveDocument.InlineShapes(index)
inlineShape.Select()
wApp.Selection.CopyAsPicture()
data = ""
Set data = Clipboard.GetDataObject()
If data.GetDataPresent( GetType( System.Drawing.Bitmap )) Then
bmp = ""
bmp = CType(data.GetData(GetType(System.Drawing.Image)), Bitmap)
bmp.Save( "C:\mybitmap" + cstr(index) + ".bmp" )
End If
Next
Call wDoc.Close(True)
call wApp.Quit(True)
End Sub
Any help or suggestions would be greatly appreciated.
Tim
|
|
|
|
|
ironclads wrote:
If data.GetDataPresent( GetType( System.Drawing.Bitmap )) Then
bmp = ""
bmp = CType(data.GetData(GetType(System.Drawing.Image)), Bitmap)
bmp.Save( "C:\mybitmap" + cstr(index) + ".bmp" )
End If
Does your code even get to the "bmp = CType(data.GetData(..." line? A possibility would be that you're not actually seeing a Bitmap on the clipboard.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Yes, I've done alert prompts after the bmp save and they come up for each image, so I know its getting into the if statement. Any other help or suggestions for me?
Thanks.
<<<<TIM>>>>
|
|
|
|
|
With a PictureBox; when it has an image loaded, I would like to be able to open the image in the default image viewer (or select an image viewer) when the image is ‘clicked’.
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click<br />
<br />
[Open the current Image in the default image viewer...]<br />
<br />
End Sub
Does anybody know how this can be done?
Thanks
Brad
|
|
|
|
|
If you wanted to launch the default application, you would just launch the graphics image file ("C:\SomeDir\MyGraphics.JPG") using the Process class' .Start() method. Be sure to specify that you want a Shell launch. You can get more information on the Process class here[^] on MSDN.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks Dave.
I figured this out at just about the same time you posted...
Here is what I did:
Dim fileToOpen As String = fpath & selectedItem<br />
System.Diagnostics.Process.Start(fileToOpen)
I had the answer "right under my nose" the whole time in another part of my application.
Brad
|
|
|
|
|
You might want to change your code a little bit so you can accomodate how paths are handled in different situations, like the root of the drive...
Dim fileToOpen As String = Path.Combine(fpath, selectedItem)
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
who's know how to add value into combo box import from sql DB but
combo1.item={"value1")
thank you
|
|
|
|
|
You can add items to the combobox by calling Combobox.Items.Add("Blah")
You can also set the selecteditem by calling ComboBox.SelectedItem = ComboBox.Items(0)
Hope this helps
WM.
What about weapons of mass-construction?
|
|
|
|
|
HI
CAN U TELL ME THE WAY TO USE DRAFT FONT IN VB 6.0 DATA REPORT. AND PLEASE GIVE ME THE CODE FOR THAT IF ANY
THANKS A LOT
|
|
|
|
|
i am trying to call a secure SSL webservice from vb6 using soap as i call the webserice method the following error is raised .
1) "SoapMapper:Restoring data into SoapMapper USR_RECORDING failed HRESULT=0x80070057: The parameter is incorrect.
-Client:Unspecified client error. HRESULT=0x80070057: The parameter is incorrect."
2) Question.
How can i digtiaal sign the XML using x509certificates in vb6 code.
How can i get rid of this error using SOAP
Hoping +ve response...
|
|
|
|
|
any good link for crystal report with .NEt forum ?
any help 'll be appreciable
|
|
|
|