In a message regarding Re: coercing a string to a picture dated Sun, 19 Feb
2006 11:27:49 +0100, FreeFL said that ...
> Efficient, but quite boring to install when you have 200+ pictures...
Have you got the original pictures in a folder somewhere?
I usually write myself a gizmo program for this sort of code, so I can
paste it in. Something like this:
dim dir as FolderItem
dim fName As String
dim i as Integer
dim arr() as String
dir = SelectFolder
if dir <> nil Then
for i = 1 to dir.Count
fName = NthField(dir.Item(i).Name,"Picture",1)
arr.Append "case """ + fName + """"
arr.Append " Return " + fName + "Picture"
next
dim clp As new Clipboard
clp.SetText join(arr,EndOfLine)
clp.Close
speak "Ok"
Else
speak "it is Nil"
end if
--
Steve Garman
Using REALbasic 2006r1 Professional on Windows XP Pro
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
