|
 Hello
You Have not given much information what is the type of file you want.ok if you want to get required string from
Test.txt file you can give like this
dim str as string("strSearch",10)
FileNumber = FreeFile()
FileOpen(FileNumber, filepath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
FileGet(FileNumber, str)
Which Give the result start from 0 To byte 10 bytes if you want to search all give the file size you can give random access also.I hope it will help for you
Ishak
Progarmmer Analyst
ITI KSA
|
|
|
|
|
is it possible to open an internet explorer browser or a mozilla firefox using vb.net and then search something in google, and svae it to your database?
thanks for your replies
|
|
|
|
|
You can open the default browser with shell execute. Getting the results of a search and stuffing them into your db is a more complex proposition, but IE is a COM object, after all....
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
if you were able to open the default browser, is it possible to set the home page of the default browser into a website, which is in your database?
|
|
|
|
|
Yes, all you do is shell launch the full "HTTP://" website address. This will launch the default web browser and show the page you launched.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Change the default home page ? That's pretty user hostile behaviour, but yes, you can do it, I believe. I'd never be so rude, though.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
haha... im not goind to do it in a hostile manner.. we need it for our thesis.. we need to make a program, something that filters the results of a search engine, and it is dialog based... i need a sentence parser, an nl-generator, a filtering program in vb.net.. thats why im asking if i can open the websites in the search results of the search engine, and then read the contents of the site.. so that it will be possible to filter it...
can you guys help me with this? i hope you can...
|
|
|
|
|
If you have it available you can simply import the VS6 WebBrowser control into VB.NET, then you can control the target URL and retrieve and parse the contents of any web page directly within a browser form in your VB project.
Robert
|
|
|
|
|
jedskie_a wrote:
if you were able to open the default browser, is it possible to set the home page of the default browser into a website, which is in your database?
Yes it's possible. It's called SCUMWARE. A number of state agencies and now the FTC are slowly but hopefully surely making the prractice you describe illegal.
I am staunchly opposed to censorship - i.e legislation that prevents me from saying or reading or looking at anything I please. I am a firm supportor of scumsorship - legislation that prevents people like you from assumiung I want MY homepage set to your database. 
Robert
|
|
|
|
|
Hi,
I am manually loading "Custom" binary graphic files into a .RES file, and then compiling it into a resource only DLL. I am using VS 6.0 and a Visual Basic project.
Will somebody please point me to either code or documentation on how I can automate the process of loading binary graphic files into a .RES file.
A VB or .NET solution would be great.
Thanks in advance.
|
|
|
|
|
Hello all,
How do I supplement the code below so that when a subitem is null from the database, the field in the listview is populated with a string; such as "n/a"?
There will be occasions when a field(s) corresponding to a subitem(s) might be null.
/////////////////////
Public Sub FillListView()
Dim fieldCtr As Short
Dim rdlv As SqlDataReader
rdlv = sqlCmd.ExecuteReader
Do While rdlv.Read
lvItems = New ListViewItem
lvItems.Text = Trim(rdlv(0))
For fieldCtr = 1 To rdlv.FieldCount() - 1
If rdlv.IsDBNull(fieldCtr) Then
lvitems.SubItems.Add("")
Else
lvitems.SubItems.Add(rdlv.GetString(1))
lvitems.SubItems.Add(rdlv.GetString(2))
lvitems.SubItems.Add(rdlv.GetString(3))
lvitems.SubItems.Add(rdlv.GetString(4))
lvitems.SubItems.Add(rdlv.GetString(5))
lvitems.SubItems.Add(rdlv.GetString(6))
lvitems.SubItems.Add(rdlv.GetDateTime(7))
'lvItems.SubItems.Add(rdlv.GetDateTime(8))
End If
Next fieldCtr
Me.lvSearchProperty.Items.Add(lvItems)
Loop
Me.btnSubmit.Enabled = False
End Sub
////////////////
Thanks a bunch,
Jaydeanster
Ben, is that you?
|
|
|
|
|
I have been trying to find a way to change the color of the actual tab control, not the individual pages. Does or has anyone found a way to accomplish this task? I have been trying to override the BackColor property but it doesn't seem to work.
Thanks!
|
|
|
|
|
The background color isn't supported by the TabControl. You can override the BackColor property all you want, it's not going to get drawn in that color unless you supply the drawing code to do it. Google for "ownerdraw tabcontrol" and you'll come up with all kinds of examples on how to do it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello all,
Two part question:
A. What am I doing wrong with the code below to generate the error on the Subject line above?
B. Is binding the best option (such as the one I have below) of displaying a specific record on a form?
//////////////////////
Private sqlConn As SqlConnection
Private SqlDataAdapter1 As SqlDataAdapter
Private sqlCmd As SqlCommand
Private DataSet11 As DataSet
Private Sub frmPropertyDetailTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim pintProperty As Short
Dim pbndtemp As Binding
sqlConn = New SqlConnection("Server=server;Database=db;User ID=us;Password=pw;Trusted_Connection=False")
sqlCmd = New SqlCommand
sqlCmd.Connection = sqlConn
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = "SELECT dbo.property.* FROM dbo.property"
sqlConn.Open()
SqlDataAdapter1 = New SqlDataAdapter
SqlDataAdapter1.SelectCommand = sqlCmd
DataSet11 = New DataSet
pintProperty = Me.SqlDataAdapter1.Fill(DataSet11)
pbndtemp = New Binding("Text", DataSet11, "property.PropertyID")
Me.txtPropertyID.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.PropertyName")
Me.txtPropertyName.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Address1")
Me.txtAddress1.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Address2")
Me.txtAddress2.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.City")
Me.txtCity.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.State")
Me.txtState.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Postal")
Me.txtZip.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Country")
Me.txtCountry.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Business")
Me.txtBusinessNumber.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Fax")
Me.txtFaxNumber.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Support")
Me.txtSupportNumber.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Email")
Me.txtHotelEmail.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Url")
Me.txtWebsite.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Status")
Me.txtStatus.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Product1")
Me.txtProduct1.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Product2")
Me.txtProduct2.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Product3")
Me.txtProduct3.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Product4")
Me.txtProduct4.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Product5")
Me.txtProduct5.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Rooms")
Me.txtTotalRooms.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.LiveDate")
Me.txtLiveDate.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.HIBDate")
Me.txtHIBDate.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.RevCategory")
Me.txtRevCat.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.UtellSelection")
Me.txtUtellSelection.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.Inventory")
Me.txtInventory.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.JoinFee")
Me.txtJoinFee.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.DevOwner")
Me.txtDevOwner.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", DataSet11, "property.SDMgr")
Me.txtSdMgr.DataBindings.Add(pbndtemp)
sqlConn.Close()
End Sub
///////////////////////
Thanks a bunch,
jaydeanster
I could have been a contender; I could have been somebody...
|
|
|
|
|
Hello
Try to use the property in DataMember Property Use with ur Database Name,(i.e) Dbo , In ur Fill statement the table name comes with DB name check the table mappings property
Ishak
|
|
|
|
|
It didn't work. 
|
|
|
|
|
I am doing a Project in which I need to capture the snapshot of the desktop and send the captured image over the network to some other machine,
I have done the capturing part,I have no idea about how to transfer images over Network can u please help me!!!
|
|
|
|
|
Hello
Use the the Unifi.Utils DLL s that has contain many function for sending through network.then how u capture that Image and what function u use.
Ishak
|
|
|
|
|
sounds like something i could definetely use - where could i find it or information about it??
|
|
|
|
|
Hai
If u need contact me thro ugh mail rugfy@yahoo.com,I will send
Ishak
|
|
|
|
|
i m trying to make a vcd cutter like software in vb.net. i m using a binery reader to split the files.if i split the file from begnige it's playes fine but if i try to split it from sommeware middle the the clip is not working.can any one help me in this
|
|
|
|
|
Mike the Red already did. You've got alot of research to do in learning about the VCD format. I suggest Google or Yahoo to start.
We can answer questions about the VB/VB.NET language itself. What your asking has nothing to do with VB. We won't do your research for you because you wouldn't learn anything from us doing all the leg work.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
I do want to search paragraphs for strings.
I managed to do so, if the string is somewhere inbetween like the word "ten" in "I had ten cups of tea!".
But what I was not able to do is the following:
Searchstring is at the end of the sentence like "See you at ten." In there I did not mangage to erease the ".". Maybe the left function will work. But I have to take care not to eliminate too much, because I will have to keep 1.2 (meaning the dot inbetween) but I will have to remove it when it looks like "1.".
In general:
1.x (where x is any nonprintable character or nothing) should be 1
1.2.x (x like above) should be 1.2
but 1.2.3 should remain 1.2.3!
Any suggestions? I thought I could use the find operation which I got through recording a macro and using the find operation. But then I will get the 8 in 8.1 and 8.1.1 as well.
Well maybe I should really try to use the left and right function to eliminate the dots etc.
So any suggestion is very welcome!
Stephan.
|
|
|
|
|
Use the Instr() function. It is not affected by the character after the search pattern. For example, I tested Instr() on the folowing string:
"Ten people ordered ten cups of tea at ten."
and the function correctly returned the position of all three occurences of the substring "ten".
Robert
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
