Click here to Skip to main content

Visual Basic

vb.net dll and web page

rmedo1-Apr-09 1:09

1-Apr-09 1:09

Hi all,

i have vb.net dll and i used this dll from webbage, i want this dll to display message box through webpage to the client ans open new page contains textbox to get input from user.
please i want urgant help in this point.

Thanks

Re: vb.net dll and web page

Tom Deketelaere1-Apr-09 1:47

Tom Deketelaere

1-Apr-09 1:47

Several things wrong with your post:

0: this is the VB.NET forum, your question is about webdevelopment so go to the ASP.NET forum : Correct forum[^] and ask there again

1: every question here is urgent, the people answering however don't get payed so you'll get an answer whenever you get it.

2: from what I can understand from your question, what you are trying to do isn't possible (as far as I know), but ask in the correct forum and people can make better suggestions

Re: vb.net dll and web page

rmedo1-Apr-09 1:50

1-Apr-09 1:50

Thanks

Confirming the copying is success or not

jishbalan1-Apr-09 0:43

1-Apr-09 0:43

Hello friends,

I want to copy a file from one folder to another.

I am using File object.copy to copy the file from one folder to another. How can i make sure that the copy is success or not?

Thanks and regards
Jishith

Re: Confirming the copying is success or not

0x3c01-Apr-09 0:45

1-Apr-09 0:45

If it succeeds, no exception will be thrown, and File.Exists(destination) will return true

Count Similar Lines

vijay248231-Mar-09 21:39

31-Mar-09 21:39

I have a text file that has similar lines..;
i want to count those similar lines and write it as 1 line with a new fieldname Quantity indicating the number of similar lines...
thanks in advance

Re: Count Similar Lines

Eddy Vluggen31-Mar-09 22:04

31-Mar-09 22:04

Import it in a database and do a SELECT DISTINCT Smile | :)

Smile | :)

I are troll Smile | :)

Smile | :)

Re: Count Similar Lines

Tom Deketelaere31-Mar-09 23:36

Tom Deketelaere

31-Mar-09 23:36

When handling text files and doing actions on them I always find its best to read the whole text file line by line into a datatable or array or list. Do your actions you need to do on that datatable / array / list and then overwrite the file with a new one.

Re: Count Similar Lines

vijay24821-Apr-09 1:28

1-Apr-09 1:28

i have not used datatable before...
i have no idea about it.
i searched google, but did not get anything useful to do...

any help to import text file into datatable will be mmore helpfull.

thanks for the previous reply and for the future replies...

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 1:43

Tom Deketelaere

1-Apr-09 1:43

From memory :

dim dt as new datatable("a name")
dt.columns.add(new datacolumn("column1",getttype(string)))
dt.columns.add(new datacolumn("column2",getttype(string)))
dt.columns.add(new datacolumn("column3",getttype(string)))
dt.columns.add(new datacolumn("column4",getttype(string)))
...

'now that you have your datatable
'read your textfile line by line
do while not reader.eof 
     dim dr as datarow = dt.newrow
     dr.item("column1")= "your value for that column here"
     dr.item("column2")= "your value for that column here"
     dr.item("column3")= "your value for that column here"
     dr.item("column4")= "your value for that column here"
     ...
     dt.rows.add(dr)
loop
'now you have your entire textfile in a datatable
'you can do all your actions on that datatable now and then overwrite your textfile with a new one

hope this helps

Re: Count Similar Lines

vijay24821-Apr-09 2:22

1-Apr-09 2:22

what tool should i add from the toolbox to use this code???
is it a DataGridView or DataSet or something else.....

i feel like sitting in a dessert where there is nothing available...
my mind is completely blank.....

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 2:35

Tom Deketelaere

1-Apr-09 2:35

If you don't want to display the file on a form you don't need a tool

This

dim dt as new datatable("tablename")

create's the datatable

This

dt.columns.add(new datacolumn("column1",gettype(string)))

Create's a column within that datatable with the name 'column1' and datatype 'string'

this

dim dr as datarow = dt.newrow

create's a new row in the datatable

this

dr.item("column1")= "value goes here"

puts 'value goes here' into this new row in the column 'column1'

so you do the code I send you urlier

while reading your textfile (you already have that code) you fill the datatable.
Every line in your textfile is a new row (dim dr as datarow = dt.newrow) in your datatable.
Every "column" in your textfile is a column in your datatable

Once you have done this you can easily go over the datatable and add / delete / alter rows

for each dr as datarow in dt.rows
if (some check)=true then
'do something here
...
else
'do something else here
...
end if
next

and as last action just run over your datatable again and for every row you write a line to your textfile

1-Apr-09 2:50

1-Apr-09 2:50

Message Closed

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 3:22

Tom Deketelaere

1-Apr-09 3:22

vijay2482 wrote:
Do While Not sa.ReadToEnd

That's where its going wrong. Readtoend returns a string. When doing a check with 'not' in it you need to have a boolean type.

For reading the text file you have to use the code you already had. (nothing changes there) but instead of trying to do your alterations (delete/new/alter) inside that loop you just put your data (from the textfile) in the correct column in the datatable.
Then after you'v read the text file, you can do all your alterations on the datatable.

(A datatable is basicly the same as a table in sql or access)

1-Apr-09 3:33

1-Apr-09 3:33

Message Closed

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 3:50

Tom Deketelaere

1-Apr-09 3:50

You already wrote the code to read your text file and split every line in several parts (columns). You posted that a few post below.

Use that code but instead off altering your text you add the specific text to the correct column in the datatable.

After that you can start with doing your checks / alterations.

You have all the code you need to do this in front off you, you just need to put it together.

1-Apr-09 4:05

1-Apr-09 4:05

Message Closed

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 4:15

Tom Deketelaere

1-Apr-09 4:15

First off all this:

vijay2482 wrote:
Dim dt As New DataTable("TextFile")
dt.Columns.Add(New DataColumn("column1", GetType(String)))
dt.Columns.Add(New DataColumn("column2", GetType(String)))
dt.Columns.Add(New DataColumn("column3", GetType(String)))
dt.Columns.Add(New DataColumn("column4", GetType(String)))
dt.Columns.Add(New DataColumn("column5", GetType(String)))
dt.Columns.Add(New DataColumn("column6", GetType(String)))
dt.Columns.Add(New DataColumn("column7", GetType(String)))
dt.Columns.Add(New DataColumn("column8", GetType(String)))
dt.Columns.Add(New DataColumn("column9", GetType(String)))
dt.Columns.Add(New DataColumn("column10", GetType(String)))

Has to go outside off your loop so before:

vijay2482 wrote:
While sa.Peek() >= 0

the way you do it now you'll end up with only 1 line, since you recreate the datatable every new line

Second you haven't changed what I told you in last reply

vijay2482 wrote:
Do While Not sa.ReadToEnd

This is giving you the error, you can not do this.

This should be close to what you need, you might have to some changes but search a little bit.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As String
        Dim name As String
        Dim comp As String
        Dim desF As String
        Dim desAF As String
        Dim desA As String
        Dim desAA As String
        Dim ecn As String
        Dim dnf As String
        Dim repDNF As String
        Dim repASM As String

        Dim dt As New DataTable("TextFile")
        dt.Columns.Add(New DataColumn("column1", GetType(String)))
        dt.Columns.Add(New DataColumn("column2", GetType(String)))
        dt.Columns.Add(New DataColumn("column3", GetType(String)))
        dt.Columns.Add(New DataColumn("column4", GetType(String)))
        dt.Columns.Add(New DataColumn("column5", GetType(String)))
        dt.Columns.Add(New DataColumn("column6", GetType(String)))
        dt.Columns.Add(New DataColumn("column7", GetType(String)))
        dt.Columns.Add(New DataColumn("column8", GetType(String)))
        dt.Columns.Add(New DataColumn("column9", GetType(String)))
        dt.Columns.Add(New DataColumn("column10", GetType(String)))
        'now that you have your datatable
        'read your textfile line by line

        Try
            Using sw As StreamWriter = New StreamWriter("c:\DB\output222.txt")
                Using sa As StreamReader = New StreamReader("c:\DB\01530501.txt")
                    temp = sa.ReadLine()
                    name = temp.Substring(0, 29)
                    comp = temp.Substring(30, 18)
                    desF = temp.Substring(49, 32)
                    desAF = temp.Substring(82, 38)
                    desA = temp.Substring(120, 35)
                    desAA = temp.Substring(156, 33)
                    ecn = temp.Substring(190, 10)
                    dnf = temp.Substring(201, 7)
                    repDNF = temp.Substring(208, 9)
                    repASM = temp.Substring(217, 8)
                    sw.WriteLine(name & comp & desF & desAF & desA & desAA & ecn & dnf & repDNF & repASM)
                    sw.WriteLine(sa.ReadLine())
                    While sa.Peek() >= 0

                        temp = sa.ReadLine()
                        dim dr as datarow = dt.newrow
                        dr.Item("column1") = temp.Substring(0, 29)
                        dr.Item("column2") = temp.Substring(30, 18)
                        dr.Item("column3") = temp.Substring(49, 32)
                        dr.Item("column4") = temp.Substring(82, 38)
                        dr.Item("column5") = temp.Substring(120, 35)
                        dr.Item("column6") = temp.Substring(156, 33)
                        dr.Item("column7") = temp.Substring(190, 10)
                        dr.Item("column8") = temp.Substring(201, 7)
                        dr.Item("column9") = temp.Substring(208, 9)
                        dr.Item("column10") = temp.Substring(217, 8)

                        'DO NOT DO THIS HERE
                        'sw.WriteLine()
                    End While
                End Using
            End Using

            'go over your datatable
            For Each dr As DataRow In dt.Rows
                'do your alterations here
                'warning you cannot do a delete row inside this loop so if you
                'need to delete the row store it in a list (dim bla as new list(of datarow))
                'and after this loop go over that list to delete the rows you don't need
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

1-Apr-09 4:36

1-Apr-09 4:36

Message Closed

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 4:47

Tom Deketelaere

1-Apr-09 4:47

vijay2482 wrote:
what does this part of the code do?

that goes over every line in your datatable (so every line in your textfile)

You'll have to do some research into datatables

Here are a few methods from a datatable that you'll need:

0: datatable.select
1: datatable.Rows.remove
2: datatable.Rows.removeat
3: datatable.Rows.InsertAt
4: datatable.Rows.IndexOf
5: datatable.Rows(index).item("columnname")

These are just a few but should get you close to your desired end result.
Research them (use google), test them, and use them.

Re: Count Similar Lines

vijay24821-Apr-09 4:49

1-Apr-09 4:49

thanks for that..
will comeback soon after going through datatable...

thanks for all ur help...

Re: Count Similar Lines

_Damian S_1-Apr-09 15:20

1-Apr-09 15:20

You have more patience than I do, Tom!

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

Re: Count Similar Lines

Tom Deketelaere1-Apr-09 20:57

Tom Deketelaere

1-Apr-09 20:57

Well it was a slow day at work yesterday, and I was in a good mood (unfortunately that has changed to a bad mood today)so...

Re: Count Similar Lines

C#Coudou1-Apr-09 15:35

1-Apr-09 15:35

i have similar problem of yours, reading txt file.
what i did is i import first the text file to database using Microsoft Text Driver
then thats the time u can have a query string. u use StreamWriter and its a very long process.
try this:

Dim constring as string = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & c:\DB\output222.txt & "\;Extensions=asc,csv,tab,txt;"

ssql = "SELECT yourField FROM  yourTexFile
txtcon= New ADODB.Connection
txtcon.ConnectionString = constring 
txtcon.CursorLocation = ADODB.CursorLocationEnum.adUseClient
txtcon.Open()

C# コードMicrosoft End User
2000-2008

「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」

Re: Count Similar Lines

C#Coudou1-Apr-09 15:37

1-Apr-09 15:37

i have similar problem of yours, reading txt file.
what i did is i import first the text file to database using Microsoft Text Driver
then thats the time u can have a query string. u use StreamWriter and its a very long process.
try this:

 Dim constring as string = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" &c:\DB\output222.txt & "\;Extensions=asc,csv,tab,txt;"

ssql = "SELECT yourField FROM  yourTexFile
txtcon= New ADODB.Connection
txtcon.ConnectionString = constring 
txtcon.CursorLocation = ADODB.CursorLocationEnum.adUseClient
txtcon.Open()

C# コードMicrosoft End User
2000-2008

「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」

General News Suggestion Question Bug Answer Joke Praise Rant Admin

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.