|
can anyone give me the source code for simple multi-wavelet image compression in visual basic i really need your help??
|
|
|
|
|
Hello experts.
I have a .txt file which all works fine and i can read it fine. I have a program which i where i need to split this 1 big text box up. I roughly think i know how to do it but am stuck.
nFileNum = FreeFile
' Open a text file for input. inputbox returns the path to read the file
Open App.Path & "\stock.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
Line Input #nFileNum, sNextline
'do something with it
'add line numbers to it, in this case!
sNextline = sNextline & vbCrLf
stext = stext & sNextline & vbNewLine 'take out sNumbers if dont work
Loop
txtRead.Text = stext
what i intially want to do is have txtRead1.text for 1 piece of information, then nextline txtRead2.text and so on.
I thought i had to use a for next loop but they really don't like me!!
If any body can help that would be really helpful 
Cheers Dan
|
|
|
|
|
How about create an array of textboxs then put in loop with a variable that increments.
For example
......
textbox(x).text = stext
x = x+1
loop
|
|
|
|
|
Dear all,
I use VB 2005 with shell comman for zip file.
my task for zip is with space of folder name and file.
So when i zip them. it was not successfull.
It causes of space.
that my source code:
shell("C:\Program Files\WinZip\WZZIP.EXE -u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF")
Do you have any solve of this issue ?
Thanks for your help...
VB.Net
modified on Friday, January 1, 2010 6:25 AM
|
|
|
|
|
Why did you delete your message previously asked and then create this new post? you should have edited your original question and added the additional info.
Have you tried enclosing the path/filename statements in quotation marks? the interpreter is probably failing on the spaces.
shell(""""C:\Program Files\WinZip\WZZIP.EXE -u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF"""")
or split it up further for each parmater like:
shell(""""C:\Program Files\WinZip\WZZIP.EXE -u""" """D:\Ready Sent\File1.zip""" """D:\Source File\File Send.PDF"""")
|
|
|
|
|
ohh becuase the first is similar the new one so i delete.
ohh i tryed follow that your code
shell(""""C:\Program Files\WinZip\WZZIP.EXE -u""" """D:\Ready Sent\File1.zip""" """D:\Source File\File Send.PDF"""")
but it sitll can not work and get that syntax error.
what about problem ?
VB.Net
|
|
|
|
|
have you tried to get it to work from the command line first? then copy the string into the code.
Alternatively, have you tried passing the argument in as a parameter of the process.start method instead of using shell.
Process.Start("C:\Program Files\WinZip\WZZIP.EXE", "-u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF")
|
|
|
|
|
try your code but it is still not support with space.
Process.Start("C:\Program Files\WinZip\WZZIP.EXE", "-u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF")
i add -yp it shows that:
Warning: name not matched: Sent/File1.zip
Warning: name not matched: D:/Source
Warning: name not matched: File/File
Warning: name not matched: Send.PDF
Warning: D:\Ready.zip not found or empty
Error: No files were found for this action that match your criteria - nothing to do.<d:\ready.zip>
what about that problem ?
Can you give me example ? or any else for solve that?
VB.Net
|
|
|
|
|
Hi,
If this were running from the DOS prompt the command line would be
"C:\Program Files\WinZip\WZZIP.EXE" -u "D:\Ready Sent\File1.zip D:\Source File\File Send.PDF"
Providing the correct VB escaping for the quote characters gives
shell("""C:\Program Files\WinZip\WZZIP.EXE"" -u ""D:\Ready Sent\File1.zip D:\Source File\File Send.PDF""")
I think!
[EDIT]
Ah, didn't spot the multiple filenames
Try this
shell("""C:\Program Files\WinZip\WZZIP.EXE"" -u ""D:\Ready Sent\File1.zip"" ""D:\Source File\File Send.PDF""")
Alan.
modified on Friday, January 1, 2010 12:19 PM
|
|
|
|
|
Dear Alan
yes it runs DOS. i tryed like your code and add -yp for showing DOS message:
Shell("""C:\Program Files\WinZip\WZZIP.EXE"" -yp -u ""D:\Ready Sent\File1.zip D:\Source File\File Send.PDF""")
the message showed that:
Warning: D:\Ready Sent\File1.zip D:\Source File\File Send.PDF not found or empty
Error: Could not creat output file <d:\ready sent\file1.zip="" d:\source="" file\file="" send.pdf="">
Do you have any idea or solving else ?
VB.Net
|
|
|
|
|
Hi,
See my corrected modified post.
Alan.
|
|
|
|
|
Thanks you so much Alan your suport.
It is still warning that
-> Warning D:Ready Sent\File1.zip not found or empty
Adding <send file.pdf="" creating="" zip="" file="" d:\ready="" sent\file1.zip
but="" i="" got="" it="" well.
thanks="" you="" again.=""
<div="" class="ForumSig">VB.Net
|
|
|
|
|
Hello to All,
I seen some software which are hides process from the taskmanager.But when we shows all users process. But Application will be display for current user.
So Please describe that how can it possible. Your idea will be needed.
thanks
If you can think then I Can.
|
|
|
|
|
|
It is not possible to hide your app from Task Manager. Sure, you can poke around it's controls and take over it's display, but Task Manager is not the only way to see the list of processes running.
|
|
|
|
|
Theare are a lot of Application which are Hides Process From Task Manager. But Actually i want to know that how can i run my application as System Appliation.
If you can think then I Can.
|
|
|
|
|
No, there isn't.
Name one.
eg_Anubhava wrote: But Actually i want to know that how can i run my application as System Appliation.
Write it as a kernel driver. Good Luck with that...
|
|
|
|
|
You can check Drivers Applications, virus , Keylogger Applications which are preform this activity.
If you can think then I Can.
|
|
|
|
|
Wrong on all counts, except drivers since those are not seperate process, but loaded as part of the kernel itself.
Virus scanners and keyloggers all show up in Task Manager. You just have to know what you're looking for.
|
|
|
|
|
Hi all,
i am looking for help to insert online values in a excel VAT form of Punjab Excise Dept called e filling of VAT.
i am using Vb.net 2008 and MSsql express 2008.
Thanks
rmshah
Developer
|
|
|
|
|
Hello to All,
Actually i have generate the problem while verifying the exe.
Please give me the solution for that why the problem is generate. Command is given below.
<code>cmd signtool.exe verify /a /pa /v "D:\Program Files\Projects\PC.exe"</code>
Verifying: D:\Program Files\Projects\PC.exe
Unable to verify this file using a catalog.
SignTool Error: WinVerifyTrust returned error: 0x800B010D
The certification path terminates with the test root which is not trusted with the current policy settings.
Signing Certificate Chain:
Issued to: Root Agency
Issued by: Root Agency
Expires: 1/1/2040 5:29:59 AM
SHA1 hash: FEE449EE0E3965A5246F000E87FDE2A065FD89D4
Issued to: DRPU Software Pvt. Ltd.
Issued by: Root Agency
Expires: 1/1/2040 5:29:59 AM
SHA1 hash: DD485D341BD28F09D7E0960A451D1AA0520C1412
The signature is timestamped: 1/1/2010 10:12:54 AM
Timestamp Verified by:
Issued to: Thawte Timestamping CA
Issued by: Thawte Timestamping CA
Expires: 1/1/2021 5:29:59 AM
SHA1 hash: BE36A4562FB2EE05DBB3D32323ADF445084ED656
Issued to: VeriSign Time Stamping Services CA
Issued by: Thawte Timestamping CA
Expires: 12/4/2013 5:29:59 AM
SHA1 hash: F46AC0C6EFBB8C6A14F55F09E2D37DF4C0DE012D
Issued to: VeriSign Time Stamping Services Signer - G2
Issued by: VeriSign Time Stamping Services CA
Expires: 6/15/2012 5:29:59 AM
SHA1 hash: ADA8AAA643FF7DC38DD40FA4C97AD559FF4846DE
SignTool Error: File not valid: D:\Program Files\Projects\PC.exe
Number of files successfully Verified: 0
Number of warnings: 0
Number of errors: 1
<div class="ForumSig">If you can think then I Can.</div>
|
|
|
|
|
|
What are you using to do the zipping?
it totally depends on what the libraries being used are capable of.
You need to provide more info to be able to allow folk to help. Be Specific!
Cheers,
|
|
|
|
|
Thanks in advance
I need to export Crystal report 8.5 to PDF or word any format by using VB6 , i know its easier in dot net but bcz of some Conditions i have to do it in vb 6, also did goggling
Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
Here is the code
Private Sub Exp_Pdf()
Set rep = appl.OpenReport(Rep_Ss, 1)
On Error GoTo errorcancel
rep.DiscardSavedData
rep.ExportOptions.DiskFileName = Rep_Dn
rep.ExportOptions.DestinationType = crEDTDiskFile
rep.ExportOptions.FormatType = crEFTPortableDocFormat
rep.Export False
errorcancel:
If Err.Number = -2147206395 Then
MsgBox Err.Description, vbOKOnly, "ZRM Inventory Control System - Export"
Exit Sub
End If
End Sub
Private Sub CmdExport_Click()
CrystalReport1.DiscardSavedData = True
CrystalReport1.ReportFileName = "D:\ZRM\Rep\PurSum.rpt"
CrystalReport1.WindowShowSearchBtn = True
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowTitle = "Detail Purchase Report - ZRM Inventory Control System"
Rep_Ss = CrystalReport1.ReportFileName
Rep_Dn = "D:\ZRM\Rep\Pdf\PurSum.Pdf"
Exp_Pdf
CrystalReport1.PrintReport
End Sub
hope this will be useful to u. 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
