Visual Basic

Spearate the Words in a file name

10-Sep-09 6:56

can you explain it a little further that you are using which reporting tool crystal report or Ms Report or any third party reporting tool

with report textbox you mean any field on the report or what and finally are using objects /datasets or what

Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...

vijay24829-Sep-09 22:44

Re: Spearate the Words in a file name

9-Sep-09 22:44

Hi all,

I have a job of separating the file name from its extension and wtitting it into a text file.
I have succeeded in that, but I find that there are few files with many separations/partitions in the file name. say for example: aaa_bbb.01.0101.pdf or aaa.01.0101.pdf

Thanks in advance.

modified 28-Nov-12 8:00am.

Eddy Vluggen9-Sep-09 23:01

Eddy Vluggen

9-Sep-09 23:01

Try and split[^] them at the dot Smile | :)

Message Closed

9-Sep-09 23:30

Re: Spearate the Words in a file name

9-Sep-09 23:30

Message Closed

Christian Graus10-Sep-09 0:25

10-Sep-09 0:25

vijay2482 wrote:
sw.WriteLine(s)

This writes a line. As it says. So, instead, just write the text, not a line, and add a tab after it.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Message Closed

10-Sep-09 1:26

Re: Spearate the Words in a file name[SOLVED]

10-Sep-09 1:26

Message Closed

Gideon Engelberth11-Sep-09 3:24

Gideon Engelberth

11-Sep-09 3:24

That will only work for pdf files and only if the extension is lowercased. The better thing to do would be to replace this:

Dim posn As Integer, i As Integer
Dim fName As String

posn = 0
'find the position of the last "\" character in filename
For i = 1 To Len(flname)
    If (Mid(flname, i, 1) = "\") Then posn = i
Next i
fName = Microsoft.VisualBasic.Strings.Right(flname, Len(flname) - posn)

with this:

fName = System.IO.Path.GetFilenameWithoutExtension(flname)

Then you will be guaranteed to never get the extension no matter what it is. Also, you can do without the extra temporary variable here:

Dim words As String = fName
Dim split As String() = words.Split(New [Char]() {" "c, ","c, "."c, ":"c, "_"c, "-"c})

because calling Split (or any other method) on a string does not change the original string.

Re: Spearate the Words in a file name[SOLVED]

vijay248215-Sep-09 1:50

Trying to save more then one textbox ??

15-Sep-09 1:50

Thanks for your suggestion.
I have tried it and it works fine.

Bob Beaubien9-Sep-09 18:49

Bob Beaubien

9-Sep-09 18:49

Hello every one
I am trying to save more then one textbox
i found this code on youtube and it worked
but it did not when i repet the code for the other textboxs

'Save Settings Button
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Settings.SaveSet = TextBox3.Text
        Settings.SaveSet = TextBox4.Text
        Settings.SaveSet = TextBox5.Text
        Settings.SaveSet = TextBox6.Text
        Settings.SaveSet = TextBox7.Text
        Settings.SaveSet = TextBox8.Text
       
        Settings.Save()
    End Sub

'Load Setting Button
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Settings.SaveSet
        TextBox4.Text = Settings.SaveSet
        TextBox5.Text = Settings.SaveSet
        TextBox6.Text = Settings.SaveSet
        TextBox7.Text = Settings.SaveSet
        TextBox8.Text = Settings.SaveSet
    End Sub

Thanks for all of your help everyone

Christian Graus9-Sep-09 18:57

9-Sep-09 18:57

Bob Beaubien wrote:
Settings.SaveSet = TextBox3.Text
Settings.SaveSet = TextBox4.Text
Settings.SaveSet = TextBox5.Text
Settings.SaveSet = TextBox6.Text
Settings.SaveSet = TextBox7.Text
Settings.SaveSet = TextBox8.Text

You have one variable and you set it to each textbox in turn. You need to create a variable for each textbox. You should buy a pretty basic book and work through it, if you don't understand that.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Luc Pattyn10-Sep-09 0:48

Luc Pattyn

10-Sep-09 0:48

Bob Beaubien wrote:
i found this code on youtube and it worked

That's a simple coincidence. There may be better sources of programming information...

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

εїзεїзεїз10-Sep-09 7:08

10-Sep-09 7:08

Can you explain

what is your object , what you are trying to achieve , you want to save these text boxes values where in memory temporarily for computing or to a database/ file system for storage or something else

Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...

Bob Beaubien10-Sep-09 8:02

Bob Beaubien

10-Sep-09 8:02

Hi

I am trying to save the text box information for when you open the program the info is in the text box

i think i got it now
i got it working for one textbox but for more then one
i think i have to keep addeding items under progect, propertis. settings
for each text box

εїзεїзεїз10-Sep-09 10:34

10-Sep-09 10:34

Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...

Bob Beaubien10-Sep-09 10:37

Bob Beaubien

10-Sep-09 10:37

YES i am so smart, i am so smart S.A.M.T.R oh i meen S.M.A.R.T Laugh | :laugh:

so i guess i got the right ancer do i get a gold star ???

Thanks

Christian Graus10-Sep-09 12:16

How we recognition Time Between 2 Time???

10-Sep-09 12:16

His question is so clear that it's already been answered clearly.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

faravani9-Sep-09 18:48

faravani

9-Sep-09 18:48

Hi I Want recognition Time BetWeen 2 Time

For Example:
Now Time is 04:00:00
And My SourceCode is :

if time>=23:15:00 and Time<=07:15:00 Then
Msgbox "ok"
End if

But 04:00:00 Not Greater Than 23:15:00 And My code Failed
Please Help Me

Re: How we recognition Time Between 2 Time???

Christian Graus9-Sep-09 18:54

Re: How we recognition Time Between 2 Time???

9-Sep-09 18:54

Subtract the time from DateTime.Now, to know how much time has ellapsed, in the form of a TimeSpan.

I don't see how this code would compile, is that really your code ? What is time, is it a string ? If it's a string, you've lost half the battle.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

εїзεїзεїз10-Sep-09 6:47

10-Sep-09 6:47

you can use datediff also but timespan is better option depends on the your desired results

try to look at cheat sheets also just for a quick reference , u can also Google cheat sheets
here is one of the reference

http://www.addedbytes.com/cheat-sheets/sql-server-cheat-sheet[^]

T = DateDiff("n", (T1), (T2))
T = TimeSpan.Compare(t1, t2)

Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...

numbrix puzzle

rbjanaki9-Sep-09 15:21

rbjanaki

9-Sep-09 15:21

I have to design, write and test a vb program to help the user solve the "Numbrix" puzzle.

The user should have the capability to "undo" a number of steps taken in order to take another path it he current path is unworkable

so far I had this, I am able to crate a dynamic array of text boxes and load a from

Imports System.IO
Imports System.Math

Public Class Form1

    Structure rect
        Dim rec(,) As TextBox, val(,) As Byte, yy(,,) As Boolean
        Sub disp(ByVal a As Integer, ByVal b As Integer)
            Dim st As String = ""
            For i As Integer = 1 To 9
                If yy(a, b, i) Then st &= i.ToString

            Next
            rec(a, b).Text = st
        End Sub

        Sub comp(ByVal a As Integer, ByVal b As Integer)
            Dim i, j, cnt As Byte
            For i = 1 To 9
                If yy(a, b, i) Then
                    cnt = CByte(cnt + 1)
                    j = i

                End If
            Next
            If cnt = 1 Then val(a, b) = j
        End Sub
    End Structure

    Dim xx(3, 3) As rect, done As Boolean, diff As Byte


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load
        Dim pt1, pt2 As Point, rec As Size
        rec.Width = 47 : rec.Height = 29
        pt1.X = 25 : pt1.Y = 25
        For r As Integer = 1 To 3
            For c As Integer = 1 To 3
                ReDim xx(r, c).rec(3, 3), xx(r, c).val(3, 3), xx(r, c).yy(3, 3, 9)
                pt2 = pt1
                For rr As Integer = 1 To 3
                    For cc As Integer = 1 To 3
                        Dim newtb As New TextBox : Me.Controls.Add(newtb)
                        newtb.Size = rec : newtb.Multiline = True
                        newtb.TextAlign = HorizontalAlignment.Center
                        newtb.Location = pt2 : pt2.X += 46
                        If c = 2 And (r = 1 Or r = 3) Or r = 2 And (c = 1 Or c = 3) _
                        Then newtb.BackColor = Color.LightGray
                        xx(r, c).rec(rr, cc) = newtb
                    Next
                    pt2.X = pt1.X : pt2.Y += 28
                Next
                pt1.X += 140

            Next
            pt1.X = 25 : pt1.Y += 86
        Next
    End Sub

    Private Sub LoadButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadButton.Click
        Dim lin(8) As String, filRead As StreamReader, i, x, t, d As Integer
        Dim openFile As New OpenFileDialog()
        openFile.Filter = "txt.Files(*.txt)|*.txt"          openFile.InitialDirectory = "\C:\Fall09\numbrix\numbrix\TextFile1.txt"
        If openFile.ShowDialog() = DialogResult.OK Then
            MessageBox.Show(openFile.FileName)
        End If

        filRead = New StreamReader(openFile.FileName)
        diff = CByte(filRead.ReadLine())
       
        For r As Integer = 1 To 3
            For rr As Integer = 1 To 3
                lin = filRead.ReadLine.Split() : i = 0
                For c As Integer = 1 To 3
                    For rc As Integer = 1 To 3
                        If lin(i) <> "00" Then
                            x = Integer.Parse(lin(i))
                            If x > 0 Then xx(r, c).rec(rr, rc).ForeColor = Color.Red
                            x = Abs(x)
                            xx(r, c).rec(rr, rc).Text = x.ToString
                            For j As Integer = CInt(Int(Log10(x))) To 0 Step -1
                                If j = 0 Then xx(r, c).val(rr, rc) = CByte(x)
                                t = CInt(10 ^ j)
                                d = x \ t : x = x Mod t
                                xx(r, c).yy(rr, rc, d) = True
                            Next

                        End If
                        i += 1
                    Next
                Next
            Next
        Next

        filRead.Close()
    End Sub
End Class

Re: numbrix puzzle

Luc Pattyn9-Sep-09 15:25

Luc Pattyn

9-Sep-09 15:25

Please use PRE tags (as the forum guidelines dictate) so formatting gets preserved, lines get indented, and code becomes readable.

BTW: you can edit the existing message to fix this.

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Re: numbrix puzzle

Christian Graus9-Sep-09 16:07