|
What are you having problems with? Menus, Merge, Sort, Encrypt/Decrypt??
RageInTheMachine9532
|
|
|
|
|
Thanks for responding. Well to be honest. I having problems with all of those.
This program doesn't have to be complex. Unfortunately, i had some personal issues that required to be absent for the class when all of the above was covered. I've been trying to contruct this on my own but haven't had much success. Your help would greatly be appreciated!!!!
Thanks
Greg Kelley
Greg Kelley
|
|
|
|
|
Buddy, we can help you here, but I think that's your homework. Send me the code you've already done, and I'll give you some help with it.
Free your mind...
|
|
|
|
|
Here is what i've done so far.
'Greg Kelley
'VB Program
'1-9-04
Module Module1
Sub Main()
'Read the contents of File1 to end of file and close.
Dim File1 As New System.IO.StreamReader("c:\words.txt")
Dim word1 As String = File1.ReadToEnd()
File1.Close()
'Reads the content of File2 to end of file and close.
Dim file2 As New System.IO.StreamReader("c:\test.txt")
Dim word2 As String = file2.ReadToEnd()
file2.Close()
'Merges the contents of file1 and file2 into File3 and closes.
Dim File3 As New System.IO.StreamWriter("c:\main.txt,")
File3.WriteLine(word1 & word2)
File3.Close()
End Sub
' Encrypts/decrypts the passed string using
' a simple ASCII value-swapping algorithm
Public Function SimpleCrypt(ByVal Main As String) As String
Dim X As String, i As Integer
' Encrypt
X = SimpleCrypt(Main)
MessageBox.Show(Main)
' Decrypt
X = SimpleCrypt(Main)
MessageBox.Show(Main)
For i = 1 To Len(Main)
If Asc(Mid$(Main, i, 1)) < 128 Then
File3 = _
CType(Asc(Mid$(Main, i, 1)) + 128, String)
ElseIf Asc(Mid$(Main, i, 1)) > 128 Then
File3 = _
CType(Asc(Mid$(Main, i, 1)) - 128, String)
End If
Mid$(Main, i, 1) = _
Chr(CType(File3, Integer))
Next i
Return Main
End Function
End Module
Greg Kelley
|
|
|
|
|
Where do you need help ?
Crypting and Decrypting ??
Free your mind...
|
|
|
|
|
Console Application
The program is suppose read in 2 txt files
Then concatenate those two files into a single txt file
Then Display the encrypted contents on screen
Write to another file
Display the decrypted contents on screen
Read the encrypted file
encrypting and then decrpyting .txt file
Greg Kelley
|
|
|
|
|
I haven't tested the code you sent me.
Does the Crypt-Decrypt algorithm work ?
If not, build the algorithm and I'll help you build the solution.
Free your mind...
|
|
|
|
|
How to get all the controls in the form, like in VB we used to do
for each ctrl in me
if typeof ctrl is Textbox then
ctrl.text = ""
end if
next
How we do this in VB.Net.???
Thanks
 Be Humble in Victory and Strong in Defeat. -Het
|
|
|
|
|
The controls are in me.Controls.
for each ctl as Control in me.Controls
if TypeOf ctl Is TextBox Then ...
next
|
|
|
|
|
was good one controls are in me, but, I tried out the code, i declared ctl as object, and gave the same code but it is giving me "syntax error ." thats what it is saying. so if u can help me out.
Thanks again for ur reply
Be Humble in Victory and Strong in Defeat. -Het
|
|
|
|
|
ctl should to be Control, not Object. I tried this, without any errors:
For Each ctl As Control In Me.Controls
ctl.Text = "hier"
Next
|
|
|
|
|
|
ya, but suppose i have a group box and my textbox/combo box is placed on the group box, then how to access it. thru this code i get groupbox, but not the controls that are placed inside the groupbox.
Be Humble in Victory and Strong in Defeat. -Het
|
|
|
|
|
Het2109 wrote:
ya, but suppose i have a group box and my textbox/combo box is placed on the group box, then how to access it. thru this code i get groupbox, but not the controls that are placed inside the groupbox.
Then handle that case in the loop, either by having a secondary loop, or better, set up the loop as a function that takes a controls collection as a parameter. eg:
Public Sub RecurseControls(ByVal ctls As ControlCollection)
Dim c As Control
For Each c In ctls
If TypeOf c Is TextBox Then
Debug.WriteLine(c.Text)
ElseIf TypeOf c Is GroupBox Then
RecurseControls(c.Controls)
End If
Next
End Sub
You call this function, passing in Me.Controls to start with.
--
Ian Darling
"The moral of the story is that with a contrived example, you can prove anything." - Joel Spolsky
|
|
|
|
|
Hello everybody!
I'm new to the Visual basic.net and I'm trying to create a ActiveX dll project to use on server side in my asp pages.
I have created several of similar projects in vb6 and never had a problem.
I created a new Class library project. Added ComClass tag with ClassID, InterfaceId and EventsID. I checked the "Register for COM Interop" in project properties.
I created test asp page that calls Server.CreateObject("appname.classname") and this is when I get the error "object reference not set to an instance of an object"
Does any one know why this happens?
Thank you for any help!
iluha
|
|
|
|
|
I found the problem!
Public Sub New()
MyBase.New()
g_dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
End Sub
as soon as i commented the "g_dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" line it started to work.
Can some one tell me, can i have extra code in the sub new ?
besides the MyBase.New()?
|
|
|
|
|
I've been assigned the task of creating a batch file to copy a set of files from one directory to another every night. It needs to be over a windows network.
My source files are organized like this:
\\server\clients\smith\network_diagram\diagram.htm
\\server\clients\brown\network_diagram\diagram.htm
\\server\clients\johnson\network_diagram\diagram.htm
\\server\clients\doe\network_diagram\diagram.htm
Destination needs to be like this:
\\server\network_diagram\smith\diagram.htm
\\server\network_diagram\brown\diagram.htm
\\server\network_diagram\johnson\diagram.htm
\\server\network_diagram\doe\diagram.htm
I need to avoid hard coding each directory in the batch file in case we gain new clients. My problem is creating a loop in a Windows Command Batch file so I'm thinking a small VB app is the way to go. I'm not too experienced in VB at all so I would appreciate help doing a loop like the following:
For all client folders in "\\server\clients\" copy "\\server\clients\client name\diagram.htm" to "\\server\network_diagram\client name\diagram.htm"
|
|
|
|
|
Here is some code that will go through the directory copy you files.
Option Explicit
Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const INVALID_HANDLE_VALUE = -1
Private Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Sub Form_Load()
On Error Resume Next
Dim hSearch&, FileData As WIN32_FIND_DATA, aFolderName$
hSearch& = FindFirstFile("\\server\clients\*.*", FileData)
If hSearch& <> INVALID_HANDLE_VALUE Then
Do
If FileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
aFolderName$ = Mid$(FileData.cFileName, 1, InStr(1, FileData.cFileName, vbNullChar) - 1)
Select Case aFolderName$
Case ".", ".." 'skip
Case Else
CopyFile "\\server\clients\" & aFolderName$ & "\diagram.htm", "\\server\network_diagram\" & aFolderName$ & "\diagram.htm", True
End Select
End If
FileData.cFileName = ""
Loop While FindNextFile(hSearch&, FileData)
FindClose (hSearch&)
End If
End Sub
iluha
|
|
|
|
|
Thank you. It looks much more than I expected. I need to get VS.NET on here then I can try it out.
|
|
|
|
|
Hi
I want to open any document without the .exe file to open it. Example.
If I using shell("c:\program files\microsoft office\office\winword.exe c:\temp\mydoc.doc")
I dont't wanna that.
How i can only put Shell("c:\temp\mydoc.doc") or other command to open it.
Johnny Lizardo
|
|
|
|
|
The reason is clear..
Many PC have differents office version and I can't specify the path correctly.
|
|
|
|
|
|
Hi
Look, i don't know.. but this don't works. This is a command for vb.net?. Or give me more info about that.
Johnny Lizardo
|
|
|
|
|
VB5/6 declaration:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
or better (but only for 2000/XP) the unicode function:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
VB.NET declaration:
Declare Auto Function ShellExecute Lib "shell32.dll" (ByVal hwnd As IntPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer</pre lang=vbnet>
nShowCmd & return value constants declaration:
<pre lang=vb>Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_FNF = 2
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_PNF = 3
Public Const SE_ERR_SHARE = 26
VB5/6 example
Private Sub OpenFile(ByVal File As String)
ShellExecute(Me.hWnd, "open", File, 0, 0, SW_NORMAL)
End Sub
See ShellExecute Function on MSDN
Hope this helps you out 
greetz 
*Niels Penneman*
Software/Dev Site
Personal Site
|
|
|
|
|
Men.. You're the men,.
Thankk a lottt.
Johnny Lizardo
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
