Comments by faiqaa - CodeProject

faiqaa 21-Mar-18 17:31pm View

oh yes I did, I thought you were talking about the last comment, sorry for misunderstanding.

faiqaa 21-Mar-18 17:27pm View

But sir, you've written "If PresenceCheck" I have not used that in my code and I would need to declare it.

faiqaa 21-Mar-18 17:19pm View

Wait, have you responded to the main question at the top? or to the comments?

faiqaa 21-Mar-18 16:26pm View

Sir I'm trying my best in understanding what you said, since I had to also add a validation for the phone numbers I've done that,I'm still facing the same issue both validation fail the data should be saved which is currently happening, even if one text box is empty the data should not be saved and if the phone number is any lower than 9 or bigger than 11 then the same should happen.

The code that I have now is:

Dim pattern As String = "^txtBox\d$"
Dim r As Regex = New Regex(pattern)
Dim msg As String = String.Join("; ", Me.Controls.OfType(Of TextBox) _
.Where(Function(x) x.Text.Trim.Length = 0 And r.Match(x.Name).Success) _
.Select(Function(x) x.Name) _
.ToList())
If msg <> "" Then MsgBox("Please, fill the following textboxes: " & vbCr & _
msg, MsgBoxStyle.Information, "Information")

msg = String.Join(",", Me.Controls.OfType(Of TextBox) _
.Where(Function(x) x.Text.Trim.Length > 0 And r.Match(x.Name).Success) _
.Select(Function(x) String.Concat(x.Name, ":", x.Text)) _
.ToList())

If txtBox5.Text.Length < 9 Then
MsgBox("Phone numbers must be at least 9 digits long") ' if the value entered in text box 5 is < 9 then the respective message box would be shown'
txtBox5.Focus()
MessageBox.Show("Customer has not been successfully registered")
End If
If txtBox5.Text.Length > 11 Then
MsgBox("Phone numbers must be of a maximum of 11 digits long") ' if the value entered in text box 5 is > 11 then the respective message box would be shown'
txtBox5.Focus()
MessageBox.Show("Customer has not been successfully registered")
End If

If msg <> "" Then
Dim Filenum As Integer = FreeFile()
FileOpen(Filenum, "C:\Users\Windows 7 User\Desktop\Customers.txt", OpenMode.Append) 'Text file is opened'
PrintLine(Filenum, txtBox1.Text & "," & txtBox2.Text & "," & txtBox3.Text & "," & txtBox4.Text & "," & txtBox5.Text & "," & txtBox6.Text) 'The data entered in the above text boxes is combined together separated with commas and stored into the open text file'
FileClose(Filenum) 'Once this is done the text file is closed and message below is displayed'
MessageBox.Show("Customer has been successfully registered")
End If

Sir I do understand you want me to learn but right now I'm really desperate since I have a deadline for tomorrow,I've started to code from a few months. I really don't know what to do next.

faiqaa 21-Mar-18 15:25pm View

That's fine, if I look at both where statements they do seem to be fine, in the first the length must be equal to 0 and in the second one it needs to be bigger than 0 since I'm dealing with the filled in text boxes.

faiqaa 21-Mar-18 14:46pm View

Sir, currently if all text boxes are empty then the details are not stored into the text file,however if I type in one of the text boxes and the others are empty then the details are still stored and this shouldn't happen since all text boxes must be filled in.

faiqaa 21-Mar-18 14:11pm View

Thank you so much sir, it's working just the way I needed it to work.

faiqaa 21-Mar-18 13:46pm View

now it says "overload resolution failed because no accessible 'Concat' can be called with these arguments".

faiqaa 21-Mar-18 13:18pm View

Hello, can you please have a look at this?, one thing that is happening is that when I've filled in all text boxes and press the button, I receive multiple message boxes showing me the information inputted in various text boxes and the last message box says" Please fill the following text boxes:"), this is happening even when they are filled in.

 Dim PresenceCheck As Boolean
        Dim pattern As String = "^txtBox\d$"
        Dim r As Regex = New Regex(pattern)

        Dim notEmptyTextBoxes = Me.Controls.OfType(Of TextBox) _
                                    .Where(Function(x) x.Text.Trim.Length > 0 And r.Match(x.Name).Success) _
                                    .ToList()

        For Each tb As TextBox In notEmptyTextBoxes
            MsgBox(String.Format("{0} {1}", tb.Name, tb.Text))
        Next
        Dim msg = String.Join("; ", Me.Controls.OfType(Of TextBox) _
                               .Where(Function(x) x.Text.Trim.Length = 0 And r.Match(x.Name).Success) _
                               .Select(Function(x) x.Name) _
                               .ToList())
        PresenceCheck = False
        MsgBox("Please, fill the following textboxes: " & vbCr & _
                msg, MsgBoxStyle.Information, "Information")

        If PresenceCheck = True Then
            Dim Filenum As Integer = FreeFile()
            FileOpen(Filenum, "C:\Users\Windows 7 User\Desktop\Customers.txt", OpenMode.Append) 'Text file is opened'

            PrintLine(Filenum, txtBox1.Text & "," & txtBox2.Text & "," & txtBox3.Text & "," & txtBox4.Text & "," & txtBox5.Text & "," & txtBox6.Text) 'The data entered in the above text boxes is combined together separated with commas and stored into the open text file'

            FileClose(Filenum) 'Once this is done the text file is closed and message below is displayed'

            MessageBox.Show("Customer has been successfully registered")
        End If

faiqaa 21-Mar-18 12:54pm View

okay my fault, let me see whether is works now. Thanks. So basically I'm trying to save customer details and if the text boxes are empty I dont need to save the details
however if they are filled then I will need to.

faiqaa 21-Mar-18 12:49pm View

Deleted

I have tried the second piece of code, and it says" r is not declared" (r.Match)

faiqaa 4-Mar-18 5:02am View

I have another question, what if I want to highlight/pinpoint the row of stock whose quantity is lower than 4? currently a message box is displayed every time the form is opened if one or more products' quantity is lower than 4, "A stock item's quantity is too low please check carefully". Thanks.

faiqaa 3-Mar-18 10:42am View

Sir I am wasting time because using the list box's feature is far easy, I have an assignment and they want me to use one sort.
Thanks

faiqaa 3-Mar-18 9:09am View

Deleted

Thank you very much it has worked now.

faiqaa 3-Mar-18 8:54am View

The code below has worked on a list of only numbers, now the problem is that I am storing stock details therefore I wanted to sort according to the product ID, as soon as I write something like this, 4564,Samsung galaxy note 5,£600,15 ( the actual data I am saving) this sort does not sort at all..

Dim sorted As Boolean = False

Dim t As String

Do

sorted = True

For i As Integer = 0 To ListBox1.Items.Count - 2

If CDbl(ListBox1.Items(i).ToString) > CDbl(ListBox1.Items(i + 1).ToString) Then

t = ListBox1.Items(i).ToString

ListBox1.Items(i) = ListBox1.Items(i + 1)

ListBox1.Items(i + 1) = t

sorted = False

End If

Next

If sorted Then

Exit Do

End If

Loop

Error: Additional information: Conversion from string "4564,Samsung galaxy note 5,£600,15" to type 'Double' is not valid.

faiqaa 3-Mar-18 8:14am View

I tried using this code, below the displaying one shown above, but instead of sorting it just displays the data already shown in the listbox twice.

faiqaa 3-Mar-18 5:03am View

This is what I tried using, by the way I'm a new coder that's the reason why I'm not good at this.
Private Sub frm7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim STUDENT_FILE As String = ("C:\Users\Windows 7 User\Desktop\Stock.txt")
Dim objReader As New System.IO.StreamReader(STUDENT_FILE)

Dim strDataline As String 'Data line
Dim strArr(2) As String ' Array for bits of line
Dim blfound As Boolean
ListBox1.Items.Clear()

Do While objReader.Peek() <> -1 'read the file till the end.

Loop
strDataline = (objReader.ReadLine()) ' read line and store into variable

strArr = strDataline.Split(",") 'Split line and put into array

Dim item1 As Integer = strArr(0)
Dim item2 As String = strArr(1)
Dim item3 As Integer = strArr(2)
Dim item4 As Integer = strArr(3)
If item4 < 4 Then
MessageBox.Show("Quantity of stock is low, please check")
End If

Basically when I load the form the data is displayed and literally nothing happens instead it should display the msgbox. I saved on purpose a stock item's quantity as 3.

faiqaa 3-Mar-18 4:52am View

Hi, the thing is I tried doing that but it still didn't work so I thought I was doing something wrong. Sorry if I offended you by asking the dumb question.

faiqaa 3-Mar-18 3:50am View

Thanks for your time, would this work without the subroutine?

faiqaa 3-Mar-18 2:51am View

Thank you for your time, can you please give me an example of accessing each rows' items via an array index?

faiqaa 1-Mar-18 14:42pm View

Hi, thank you for your reply, do you mean something like this?

Option Strict On
Imports System.Text
Imports System.Security.Cryptography

Public Class Form1
Function CreateSalt(MinimumLen As Integer, MaximumLength As Integer) As String
Dim StrReturn As String = String.Empty
Dim CharsToUse As String = "ACBDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmmopqrstuvwxyz0123456789,.<>/?';:[]{}`~!@#$%^&*()-_=+"
Dim GetRandom As New Random
Dim Index As Integer = 0
For Index = 1 To GetRandom.Next(MinimumLen, MaximumLength + 1)
StrReturn &= CharsToUse.Substring(GetRandom.Next(0, CharsToUse.Length), 1)
Next
Return StrReturn
End Function
Function GetSHA1Hash(ByVal Txt As String) As String
Dim sha As New SHA1Managed()
Dim ae As New ASCIIEncoding()
Dim Hash() As Byte = sha.ComputeHash(ae.GetBytes(Txt))
Dim sb As New StringBuilder(Hash.Length * 2)
Dim ndx As Integer
For ndx = 0 To Hash.Length - 1
sb.Append(Hash(ndx).ToString("X2"))
Next
Return sb.ToString
End Function

Private Sub BtnProcess_Click(sender As System.Object, e As System.EventArgs) Handles BtnProcess.Click
If NUMSaltMin.Value >= NUMSaltMax.Value Then
TXTSalt.Text = "Minimum must be at least equal to or greater than Maximum"
Exit Sub
End If
TXTSalt.Text = CreateSalt(CInt(NUMSaltMin.Value), CInt(NUMSaltMax.Value))
TXTHash.Text = GetSHA1Hash(TXTSalt.Text & txtPassword.Text)
End Sub
End Class

faiqaa 18-Feb-18 15:01pm View

Initially it was something like this (t & ".txt"), this did not work either and I want to use a specific text file which I've already made called "bookings". I have tried the two methods suggested by you but it does not seem to work,I am allowed to type in the details of the booking by clicking on the date,then I click SAVE and BACK. I click on the same date again to view the booking instead of showing me what I previously wrote it asks me again whether I would like to book for the same date again. Thank you for your time.

faiqaa 8-Feb-18 10:40am View

Hi, I'll try explaining everything in detail as I think you did not understand what I'm meant to do, I am using three buttons( SUBMIT,AMEND and DISPLAY) , I use the same numbered text boxes to register a customer(customer name,date of birth..) and then press the SUBMIT button, the relevant data is saved into a text file. I later press the DISPLAY button which basically means that the data from the text file is read and displayed in a list box. Now my problem is not being able to "Amend" the data I've already saved, for example I would need this in case a customer's address changes therefore instead of adding a new customer I would only need to change this customer's address. For this reason whenever I select a customer from the list box, the row of data (customer name,date of birth,address) are split and copied into the relevant text boxes, for example the customer name would be automatically copied into the txtBox1 and the date of birth in txtBox2. I have only decided to use this copy function so that I would be able to amend but I'm having issues with it, I have tried using the code that you can see above but it's not helping. Thank you for your time.

faiqaa 8-Feb-18 6:50am View

Yes I am using a submit button, this is hat I have used for Listbox-Event SelectedIndexChanged:
Dim curItem As String = ListBox1.SelectedItem.ToString()
Dim parts As String() = curItem.Split(New String(){","}, StringSplitOptions.RemoveEmptyEntries)

For i As Integer = 0 To parts.Count()-1
Dim txt As TextBox = DirectCast(Me.Controls("txtBox" & i+1), System.Windows.Forms.TextBox)
txt.Text = parts(i)
Next
I don't know what you mean by "Perhaps you should also check if the "new" entered data is still existing inside your file."

faiqaa 10-Jan-18 3:47am View

Hi sir,
what changes would you recommend me? hmm a blank line at the end? the thing is that I need to save stock information so I would keep adding and removing it, display it in a data grid later, I don't know how to deal with this issue.

faiqaa 7-Jan-18 13:04pm View

Hi sir and yes I'm using grid columns (4), I have tried using this code:

Dim fname As String = "C:\Users\Windows 7 User\Desktop\Stock.txt"
Dim colsexpected As Integer = 4
Dim thereader As New StreamReader(fname, Encoding.Default)
Dim sline As String
Do
sline = thereader.ReadLine
If sline Is Nothing Then Exit Do
Dim words() As String = sline.Split(",")
DataGridView1.Rows.Add("")
For ix As Integer = 0 To 3
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(ix).Value = words(ix)

Next

Loop

thereader.Close()

However it still gives me an error "The Index was outside the bounds of the array"

faiqaa 6-Jan-18 16:52pm View

The issue is that I'm currently not able to display the data saved on a text file into a data grid.

faiqaa 6-Jan-18 14:56pm View

I meant that I have looked online at other solutions but none of them has helped me in solving my issue.
Thanks

faiqaa 6-Jan-18 11:38am View

Yes it's WinForms.

faiqaa 22-Dec-17 7:33am View

Yes I guess so, I could just rename the files instead of copying.

faiqaa 22-Dec-17 7:32am View

I don't need to deal with the userid and I if I take away the lines of code that deal with it the code just doesn't work.

faiqaa 22-Dec-17 7:31am View

Deleted

I don't need to deal with the userid and I if I take away the lines of code that deal with it the code just doesn't work.

Comments by faiqaa (Top 32 by date)