I need a script edited so it will enter the intiger a specified number.

Question

This is a number generating script created by Michel Lemieux and posted here: http://www.quark.com/service/forums/viewtopic.php?t=4176 I need this script to ask for data that would specify the number of times each number should be added to the file. IE: the return data in the created file would look like this if 2 was entered: 1<\b>1<\b>2<\b>2<\b>3<\b>3<\b>4<\b>4<\b>

Answer 1

Hello
It is often easier to write a code anew than to edit an existing one...
Try somethnig like this. This will handle both integer and non-integer numbers for series along with your requirement on iteration count of each number.
Cheers.
H
-- SCRIPT
main()
on main()
set mss1 to "Enter i, j, k, r, separated by space, where -
    i = start number
    j = end number
    k = increment  (k ≠ 0 AND (i - j) * k <= 0)
    r = repetition count  (r >= 1)"
set mss2 to "Where to save the result?"
set errs1 to "Parameter error."
repeat
set t to text returned of (display dialog mss1 default answer "1 100 1 1")
try
set tt to {}
repeat with t in text2list(t, space)
set t to t's contents
if t is not "" then
set end of tt to t as number
end if
end repeat
set {i, j, k, r} to tt
set r to r as integer
if (r < 1) or (k = 0) or ((i - j) * k > 0) then
display dialog errs1 with icon 2
error number 8000
end if
exit repeat
on error number errn
if errn = -128 then error number -128 -- user cancel
end try
end repeat
--return {i, j, k, r}
set nn to {}
repeat until (i - j) * k > 0
repeat r times
set end of nn to i
end repeat
set i to i + k
end repeat
set t to list2text(nn, "<\\b>")
--return t
set f to choose file name with prompt mss2 default name "*.xtg"
writeData("" & f, t, {_append:false})
return {nn, t}
end main
on list2text(aa, delim)
  list aa : source list
  text delim : text item delimiter in list-text conversion
local t, astid, astid0
set astid to a reference to AppleScript's text item delimiters
try
set astid0 to astid's contents
set astid's contents to {delim}
set t to "" & aa
set astid's contents to astid0
on error errs number errn
set astid's contents to astid0
error "list2text(): " & errs number errn
end try
return t
end list2text
on text2list(t, delim)
  text t : source text
  text delim : text item delimiter in text-list conversion
local tt, astid, astid0
set astid to a reference to AppleScript's text item delimiters
try
set astid0 to astid's contents
set astid's contents to {delim}
set tt to t's text items
set astid's contents to astid0
on error errs number errn
set astid's contents to astid0
error "text2list(): " & errs number errn
end try
return tt
end text2list
on writeData(fp, x, {append:append})
  text fp: output file path
  data x: anything to be written to output file
  boolean _append: true to append data, false to replace data
local a
try
open for access (file fp) with write permission
set a to fp as alias
if not _append then set eof a to 0
write x to a starting at eof
close access a
on error errs number errn
try
close access file fp
on error --
end try
error "writeData(): " & errs number errn
end try
end writeData
-- END OF SCRIPT
  Mac OS 9.1.x