AT2k Design BBS Message Area
Casually read the BBS message area using an easy to use interface. Messages are categorized exactly like they are on the BBS. You may post new messages or reply to existing messages!

You are not logged in. Login here for full access privileges.

Previous Message | Next Message | Back to VBBS/VADV Script Discussion  <--  <--- Return to Home Page
   Networked Database  VBBS/VADV Script Discussion   [119 / 233] RSS
 From   To   Subject   Date/Time 
Message   Computer Whiz    Bigjoe   Using one line   March 22, 2006
 6:12 PM  

Re: Using one line

> Ok instead of writing to a text file like this
> Name
> age
> acc
> path or what ever
> I wanted to be able to write this info to one line
> Name,age,acc,path
> How would I read the one line in and assign each one to a array. Steve uses
> this for the newslist script. I just don't get the idea of it.
> I have been trying to page you C. Wiz,

I have done something similar with door2002 with the data file that has the
list of doors (1 door per line)...  What it takes is justifying each string
to a certain number of characters, like 30-40 for name, 2-3 for age, how many
spaces you need for acc, path, and any others you need.  Use JL to justify
each string to a certain string size, for example:

jl $101, 30   'Name limited to 30 characters
jl $102, 3    'Age limited to 3 digits/characters
jl $103, 6    'Account number limited to 6 digits/characters
jl $104, 40   'Path limited to 40 characters

let s1 = ""
do i, 101, 104
  let s1 = s1 % $i    'This loop combines the strings
loop
let f1 = "X:\PATH\FILENAME.DAT"
open f1, "O"
write s1
close


'Then to read them back...
let f1 = "X:\PATH\FILENAME.DAT"
open f1, "I"
read x           'Read into x as we will use MID(x,y,z) function
close
let y = 1        'Pointer, pointing to first character in string
let z = 30       'Name String size
let $101 = !10   'Name stored into $101
let y = y + z    'Move pointer up past the first string
let z = 3        'Age String Size
let $102 = !10   'Age stored into $102
let y = y + z    'Move pointer up past the second string
let z = 6        'Account Number String Size
let $103 = !10   'Account Number stored into $103
let y = y + z    'Move pointer up past the third string
let z = 40       'Path String Size
let $104 = !10   'Path stored into $104


To use a delimiter (such as a comma or semicolon), there is another method to
use, but you want to check user input to make sure they are not able to use
that delimiter character in their entries or you will have problems later on.


> I have been trying to page you C. Wiz,

I haven't had my pager on lately, as I have been busy a lot lately, mostly not
at the computer or not at home...only little time have I been actually on the
computer doing anything.  I started a Sudoku script last night, so will be a
bit busy with that until I get it done.

ComputerWhiz

�Ŀ� ������Ŀ  �Ŀ�Ŀ VA �Ŀ�Ŀ�Ŀ  telnet://bbs.chris-co.org       24h/7d
�  �Ĵ��ٳ�Ŀ�ĺ  � �    �Ĵ�Ĵ�Ŀ  Usurper v0.20d     Sysop: ComputerWhiz
���� �� ����  ������2.10���������  VirtualMUD v0.00�  @1205037 VirtualNET
  Show ANSI Codes | Hide BBCodes | Show Color Codes | Hide Encoding | Hide HTML Tags | Show Routing
Previous Message | Next Message | Back to VBBS/VADV Script Discussion  <--  <--- Return to Home Page

VADV-PHP
Execution Time: 0.0164 seconds

If you experience any problems with this website or need help, contact the webmaster.
VADV-PHP Copyright © 2002-2024 Steve Winn, Aspect Technologies. All Rights Reserved.
Virtual Advanced Copyright © 1995-1997 Roland De Graaf.
v2.1.241108