|
This is not all the code that's involved.
What's the code for PropertyCreateFile and what is it supposed to do?
Where is aaa defined ("aaa.CreateCSVFile(Data1) "), and as what?
If c.Length <= 1 Then
c = c.PadRight(2, CChar(" "))
ElseIf c.Length <= 2 Then
c = c.PadRight(3, CChar(" "))
ElseIf c.Length > 2 And c.Length <= 4 Then
c = c.PadRight(5, CChar(" "))
ElseIf c.Length > 4 And c.Length <= 6 Then
c = c.PadRight(7, CChar(" "))
ElseIf c.Length > 6 And c.Length <= 11 Then
c = c.PadRight(12, CChar(" "))
A CSV file doesn't care about padding, so what's this for? Is this for displaying the information in a TextBox or something, while you write the data to a CSV file?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Really? So, how about when it convert to text file?
Anyway,this is where aaa defined which you ask about.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Data1 As New PropertyCreateFile
Dim aa As New ArrayList
aa.Add("A45855")
aa.Add("b")
aa.Add("120306")
aa.Add("c234")
aa.Add("M45686")
Data1.Data = aa
Data1.Counter = 3
aaa.CreateCSVFile(Data1)
End Sub
'This is the code for PropertyCreateFile. It will take in the data detail and 'counter on how many times it will loop.
Public Class PropertyCreateFile
Dim Str As ArrayList
Dim Ctr As Integer
Dim UBSBadgeNo As Integer
Public Property Data() As ArrayList
Get
Return Str
End Get
Set(ByVal Value As ArrayList)
Str = Value
End Set
End Property
Public Property Counter() As Integer
Get
Return Ctr
End Get
Set(ByVal Value As Integer)
Ctr = Value
End Set
End Property
End Class
Public Function CreateCSVFile(ByVal CreatePP As PropertyCreateFile) As String
Dim sFilename As String = (CurDir & "/CSVFile.csv")
Dim b As Integer
Dim a As Integer
Dim c As String
Dim x As String
Dim Data(4) As String
FileOpen(20, sFilename, OpenMode.Output)
For b = 0 To CreatePP.Counter - 1
For a = 0 To 4
c = CStr(CreatePP.Data(a))
If c.Length <= 1 Then
c = c.PadRight(2, CChar(" "))
ElseIf c.Length <= 2 Then
c = c.PadRight(3, CChar(" "))
ElseIf c.Length > 2 And c.Length <= 4 Then
c = c.PadRight(5, CChar(" "))
ElseIf c.Length > 4 And c.Length <= 6 Then
c = c.PadRight(7, CChar(" "))
ElseIf c.Length > 6 And c.Length <= 11 Then
c = c.PadRight(12, CChar(" "))
End If
Data(a) = c
Next a
x = Data(0) + Data(1) + Data(2) + Data(3) + Data(4)
WriteLine(20, x, Environment.NewLine)
Next b
FileClose(20)
Return Nothing
End Function
Thanks for help, Dave!!
|
|
|
|
|
TeiUKei wrote: Really? So, how about when it convert to text file?
A CSV file (Comma Seperated Values) IS a text file!
TeiUKei wrote: WriteLine(20, x, Environment.NewLine)
Change it to this:
WriteLine(20, x)
WriteLine(20, Environment.NewLine)
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello
I have to create some reports. I have been told to use typed dataset as this is the best way for deployment.
I am using visual basic 2005, sql 2005 and crystal report 10
Does any one know of any good tutorials that tell you clearly how to do this. This is my first time.
Thanks in advance,
Steve
|
|
|
|
|
You should be asking this in the SQL Forum, not VB.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hey,
I was looking through REGEDIT and I found a 2 different startup keys. Some programs used the: HKEY_CURRENT_USER/Software/Microsoft/Windows/Current Version/Run and most use the: HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/Current Version/Run . Is there a difference between which one you put your startup key in?
Thank you!
|
|
|
|
|
The _CURRENT_USER is only run for a specific user when they log on, the _LOCAL_MACHINE one runs every time anyone logs on.
|
|
|
|
|
Why didn't I think of that? Thanks!
|
|
|
|
|
Hi,
How can you change the screensaver through the registry? I've found the generic Windows screensavers, but not a custom one. Where might that be?
Thank you!
|
|
|
|
|
It's the same setting. There is special location to specify a custom screen saver.
HKEY_CURRENT_USER\Control Panel\Desktop
Look for the SCRNSAVE.EXE value. This specifies the filepath of the screen saver for the current user.
The location for the screen saver when noone is logged in is under
HKEY_USERS\.DEFAULT\Control Panel\Desktop
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
Does anybody have any ideas why, if I add a field to a table in MS Access, and then run the data adapter configuration wizard on the dataset already in place in VB.NET (to 'capture' the new field), it refuses to generate an UPDATE or a DELETE statement, but if I remove the field in Access, and then re-run the wizard in Visual Studio, it goes through ok.
It doesn't seem to matter what I call the field, or what data type I am using, it always gives the same error ('There were errors configuring the data adapter') only on the UPDATE and DELETE statements (SELECT, Mapping, and INSERT are fine).
For info, I've got a parent and child table (tblSupplierProductsParent and tblSupplierProductsChild). The relationship is a one-to-many link between fields called 'ProductIDNumber' and 'ProductID' in the parent and child tables respectively. I had initially assumed that there was a problem with the relationship, but its fine if I don't add an extra field to the parent table.
I've temporarily deleted the relationship in Access and tried it again on a new form in VB.NET - with the extra field gives the problem, but without the extra field its fine.
I've never come across anything like this before, and I'm completely confused why it should behave so weird! Help!!!
|
|
|
|
|
I've had a similiar problem in the past. I'm not sure of the cause but what worked for me was refreshing the connection in server explorer & then reconfiguring the data adapter.
I think it doesn't recognize the field in the server explorer copy of the table until you refresh the connection and the extra field shows up as part of the table. Hence it can't automatically generate update & delete statements as the table structure has been changed & is unknown.
Then again, I'm probably wrong.
|
|
|
|
|
Thanks - this seems to have solved it. Very odd.
|
|
|
|
|
Hey,
I'm trying to write a program that views pictures and using left/right buttons, allows you to view the next/previous image in a folder of many other images. Well, I'm also using a hidden File List Box to browse through the pictures, but, without clicking on the next file in the List Box, how do I select the next file?
I hope this isn't too confusing! Please let me know.
|
|
|
|
|
If the FileListBox is hidden, why are you even using it? You'd have an easier time just getting the list of files on your own and managing the collection. Then there's nothing to "click on", (in a hidden control, why would you even want to?).
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Ok, how do I go about listing and managing the files?
|
|
|
|
|
All you need is an array to hold the filepaths in returned by Directory.GetFiles()[^]. After that, you can enumerate through that array and process all the files.
Dim filelist As String()
filelist = Directory.GetFiles(folderPath)
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
|
Documentation[^] on the HMACMD5 class, complete with an example right along the lines of what you appear to be looking for.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi,
I want to khnow the Key codes of both "Enter" buttens one is at alphabetside and other is numpad side. Also I didn't find the key code/name of properties key and all num pad keys i.e /,*,-,+,.,enter is remaining. Please tell me Key.NAMES or Key codes of that.
Thanks
Syed Shahid Hussain
|
|
|
|
|
Both [ENTER] keys are specified by Keys.Enter . There is no difference between the two keys. They both have the same virtual key code comming out the of the keyboard driver - VK_RETURN.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Simply my problem is that which [Enter] key is pressed. Can u direct me ....
Syed Shahid Hussain
|
|
|
|
|
You can't get this information unless you write a global keyboard hook. There are many examples of this all over the web.
A little Google goes a long way. Search for "c# keyboard hook[^]" and you'll come up with examples. THe very first link is an article right here on CP.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|