basic HELP! txt file saving and writing

[currysauce]

Hi, I am new to VB and I am having problems.
I need to create a program, that will allow a user to input a number say 1000.
The program will then creat a txt file called "mypdbs" inside the file, will be the numbers from 0-1000 (one number on ever line) with .pdb after each number ex.

0.pdb
1.pdb
2.pdb

I would appreciate the help, it is hurting my head.
thanks

[Killer42]

Hi, I am new to VB and I am having problems.
I need to create a program, that will allow a user to input a number say 1000.
The program will then creat a txt file called "mypdbs" inside the file, will be the numbers from 0-1000 (one number on ever line) with .pdb after each number ex.

0.pdb
1.pdb
2.pdb

I would appreciate the help, it is hurting my head.
thanks

I'll leave it to you how to get the input - that is very version-specific. But here's a quick and simple chunk of code to write out your results...

  Dim I As Long, J As Long
  ' Get you input in J, then...
  Open "mypdbs.txt" For Output Access Write Lock Write As #1
  For I = 0 To J
    Print #1, Format$(I); ".pdb"
  Next
  Close

[currysauce]

I'll leave it to you how to get the input - that is very version-specific. But here's a quick and simple chunk of code to write out your results...

  Dim I As Long, J As Long
  ' Get you input in J, then...
  Open "mypdbs.txt" For Output Access Write Lock Write As #1
  For I = 0 To J
    Print #1, Format$(I); ".pdb"
  Next
  Close

do you know how to do the input using visual basic.net

[Killer42]

do you know how to do the input using visual basic.net

No, sorry. I'm only familiar with VB6, not the .Net version. Also, that will depend on what sort of interface you are dealing with. For instance, in VB6 the InputBox() function is probably the simplest way to prompt the user to input a value, but also a very ugly way.

[currysauce]

No, sorry. I'm only familiar with VB6, not the .Net version. Also, that will depend on what sort of interface you are dealing with. For instance, in VB6 the InputBox() function is probably the simplest way to prompt the user to input a value, but also a very ugly way.

Hi, i dont have vb6, is there anyway you could create that script for me in an .exe? and send it?

[Killer42]

Hi, i dont have vb6, is there anyway you could create that script for me in an .exe? and send it?

Well, I created an exe - it was about 30 seconds work. But...

• I don't know your e-mail address
• thescripts says you have elected not to receive e-mails
• The "Private Message" function doesn't appear to allow attachments.

Any suggestions?

If you look up information on converting VB6 to VB.Net, or just online help for .Net, you should be able to convert the code easily enough. Here is the entire listing...

Option Explicit
DefLng A-Z

Public Sub Main()
  Dim I As Long, J As Long, s As String
  s = InputBox("Enter the limit")
  If s = Empty Then End
  If s = "." Or s = "" Or Val(s) <= 0 Then End
  J = Val(s)
  Open "mypdbs.txt" For Output Access Write Lock Write As #1
  For I = 0 To J
    Print #1, Format$(I); ".pdb"
  Next
  Close
End Sub

[currysauce]

Well, I created an exe - it was about 30 seconds work. But...

• I don't know your e-mail address
• thescripts says you have elected not to receive e-mails
• The "Private Message" function doesn't appear to allow attachments.

Any suggestions?

If you look up information on converting VB6 to VB.Net, or just online help for .Net, you should be able to convert the code easily enough. Here is the entire listing...

Option Explicit
DefLng A-Z

Public Sub Main()
  Dim I As Long, J As Long, s As String
  s = InputBox("Enter the limit")
  If s = Empty Then End
  If s = "." Or s = "" Or Val(s) <= 0 Then End
  J = Val(s)
  Open "mypdbs.txt" For Output Access Write Lock Write As #1
  For I = 0 To J
    Print #1, Format$(I); ".pdb"
  Next
  Close
End Sub

Hi, my email is [removed] , can you please send..thanks.