Convert vi reference

So I have opened a VI reference using "Open VI Reference" function. At the creation of the reference, I do not have a type specifier. At a later point, I do have a type specifier.
Is it possible to convert an existing VI reference to a strict one using said type specifier?
Lars Melander
Uppsala Database Laboratory, Uppsala University

I s'pose you could use "to more specific", but if it works i dont know. Try it out and tell us.
/Y
LabVIEW 8.2 - 2014
"Only dead fish swim downstream" - "My life for Kudos!" - "Dumb people repeat old mistakes - smart ones create new ones."
G# - Free award winning reference based OOP for LV

Similar Messages

Convert Cross-Reference to Text

Does anybody have a script that will convert cross-references to text? In other words, I want to be able to remove the linkage of the cross-reference but keep the static text in place.
Editorial comment: I set up on my local computer several books in CS6 and used cross-references, and everything worked fine. Then I moved the files to a network location and started suffering that painful slowdown that I had experienced in previous versions of InDesign. (I foolishly believed Adobe would have fixed this by now. My mistake.)

I'm guessing that the op want to convert the cross-references that you set in the Hyperlinks panel. Try this:
var xrefs = app.documents[0].crossReferenceSources.everyItem().getElements();
for (var i = xrefs.length-1; i > -1; i--){
xrefs[i].sourceText.insertionPoints[-1].contents = xrefs[i].sourceText.contents;
xrefs[i].remove();
Peter

Data is not updating in calss & Convert vi reference to strictly type reference vi

Hi,
In the attached project file there is a Class called 'ClassSample.lvclass' having 3 different data types Boolean, Numeric and Variant(not really sure, Variant can be use for strict data type reference). From this three we careated the 'VIs for data member access' you can see them in project file
My questions are,(Please refer attached screenshot)
1. Though member of same class, why value is not updating at probe 16 ?
2. How to convert vi reference to strictly type reference vi ?
Thank you.
Attachments:
Capture.JPG ‏426 KB
ClassSample Project.zip ‏116 KB

It depends a bit on your final intention. Bascially you have a shared state that you want to access asynchronously from different places. If you know that the actual object is only created once (terminilogie here is a bit shaky as every wire split would create a copy of the LVOOP object but I hope you know what I mean), you could use a global or Action Engine to store the state. Using a DVR for this state and adding the DVR to your object class data is however a more scalable approach as it will allow you to instantiate more than one object of that class and each one will contain its own DVR that will reference the same value for the specific object instance even if you split the object wire, creating actually two copies of that object (but for the purpose of this discussion they would be still the same object instance).
Queues could work if you create a single element queue but you would always need to use Preview Queue rather than Dequeue in order to maintain the value in there.
Rolf Kalbermatter
CIT Engineering Netherlands
a division of Test & Measurement Solutions

Converting cross references from Frame

I am importing my Frame files by reference in RoboHelp (using
Technical Communication Suite). I have mapped my "Heading &
Page" cross reference style to the <$paratext> building block
to drop the page numbers from the cross references. I cannot for
the life of me get these to import correctly. When I import the
chapters, the cross references still contain the page numbers. In
addition, they are not hyperlinks, as they are in Frame.
Double-clicking on the imported cross reference links does nothing.
I am desperate to get these to convert properly - I have 34
chapters to import from my user guide!!

Yes, I applied all of the patches and same problem.
What I did yesterday afternoon was to save the source FM file
as MIF and take a look at the markers. The cross reference markers
that were failing to move over had an \xod at the end. I posted in
the Framemaker forum and discovered that this was the hexadecimal
for a carriage return. As for why there would be a carriage return
at the end of some of my cross reference markers I have no idea and
I assure you it was not because I hit ENTER.
However, I have been having some success this morning in
deleting the cross reference markers and reinserting them. Of
course, this messes up all of the other cross reference pointers
throughout the book. It may be that if more than one cross
reference is made to a single source (e.g., the marker is used more
than once) the \xod appears. I am not yet sure. In between the
time-consuming and focus-grabbing Force Updates and the frequent
RoboHelp crashes during the Force Update process it takes some time
to discover. Framemaker never had a problem keeping track of my
cross references \xod or no.
I still have the problem of two cross references right next
to each other causing a Fatal Error when I try to compile. So I
have to add some spurious word like "and" and it won't even let me
make this word white. So I basically have to rewrite my source
document.
Any patches planned? Also, please consider an upgrade to the
server hosting this board: it is extremely unresponsive.
Thank you,
Z.

Acrobat 9 Pro: Links to Word TOC and cross references are lost

I'm testing Acrobat 9 Pro and while it successfully creates a PDF from Word 2003 with bookmarks, all my TOC and internal page reference links are lost.
I have triple checked the conversion settings from the Adobe PDF menu option in Word, and the "Convert cross-references and table of contents to links" check box is definitely selected.
I used the same Word document on another machine with Acrobat 6 Pro installed - and the TOC and cross ref links were created successfully. As far as I can see the Adobe PDF settings in Word 2003 on both machines are the same - the only difference is that one uses Acrobat 6 Pro and the other uses Acrobat 9 Pro.
The only setting in 9 Pro I turned off was the 'enable accessibility tagging' one; it's also turned off in 6 Pro. The remaining settings are the default.
A clickable TOC and internal links is essential for my clients who often have 400+ page documents.
Anybody have any suggestions? Or can anybody confirm that they do/don't get the same behavior in Acrobat 9 Pro?

Thanks Abhigyan - your test PDF worked fine for me.
This is what I've done today:
1. Checked for all instances of pdfm*.dot files and removed any that were lurking in old Application Data and Microsoft Office folders.
2. Deleted all Acrobat 5 and 6 folders and subfolders still lurking in Program Files.
3. Used Add/Remove to delete Adobe Reader 8 and its updates. I figure I can always install Reader 9 if I need it as a separate app.
4. Checked that everything was gone using the Windows Installer CleanUp utility (it was).
5. Restarted my machine.
6. Turned off my anti-virus software.
7. Did a search for any pdfm*.dot files - found one only in the current Microsoft Office folder and left it there.
8. Reinstalled Acrobat 9 Professional.
9. Opened my test Word 2003 document.
10. Checked all the Acrobat conversion settings and left them as the defaults.
11. Converted the doc to PDF and checked for internal links. Yes! The TOC links worked! But my joy was short-lived as the page link didn't work...
12. Tried various other conversion settings based on some suggestions from Lance in first level Adobe Support yesterday - still no page link. And I also lost the TOC links when I cleared the Enable Accessibility check box on the Settings tab of the conversion settings.
13. Checked the Edit > Preferences > Convert To PDF settings for Word in Acrobat 9 - add bookmarks and add links are both selected (default).
14. Used Acrobat 9 to create the PDF (File > Create > From File) hoping that this might might a difference. Nope. No TOC or page links.
15. Changed conversion settings back to default via Word 2003, and created a PDF from a longer document. Again the TOC links worked, the URLs worked (they always did), the bookmarks worked (they always did too), but the none of the internal page cross-reference links worked.
So my summary is this:
* I can only create TOC links *if* Enable Accessibility is turned on, but I have always turned this off in earlier versions of Acrobat as I don't need it and it made the process of creating a PDF from a long document incredibly slow - I'm wary of using it!
* I cannot get internal page links to work at all, no matter which method I use to create the PDF (from within Word or within Acrobat), and no matter which conversion settings I select.
I really don't know what to try next. Manually creating links for what could be hundreds of cross-references in a single document is NOT an option, especially as I have many of these long documents.
Any further suggestions?

Maintaining internal word cross references in word import

I'm using RoboHelp 9.0.1 trying to import Word 2007 (docx) in order to generate a WebHelp. I have adjusted my style mapping in order generate an appropriate TOC with books and matching sub chapters, which works fine. However, internal Word cross references from the original Word document are not transformed into hyperlinks.
I have already tried/verified the following:
- The "convert cross references to hyperlink" option is checked in the RH-Word import settings.
- I also tried fiddling with the Framemaker options as it is suggested in another thread (see beneath), with no success.
- Within the Word source document I tried both options with "use hyperlinks instead" when creating cross references.
- The RH-HTML source, in all of my attempts, does not show any links in the corresponding locations.
What may I be missing here? According to another, similar thread, the feature should work and is really not that challenging:
"RH9 - Can not create ANY links in linked Word documents"
http://forums.adobe.com/thread/854095?tstart=0

In my testing, I got a link in the RH topic, but it wanted to launch the target Word doc instead of jumping to the desired RH topic. I'd say this sounds like a bug - so go ahead and report it.

Reference to a type

Hi,
I have created a subvi which I now use in my main VI, however, I now want to use the values from the subvi WITHOUT having to have a control in my main VI. I can't seem to find a tool to convert a reference to a type.
Anyhelp would be much appreciated.
Thanks,
Paul.

Hi Ben,
I have included a simple VI of what I would like to achieve. Any questions just ask.
Please keep in mind that this is a simple model of what I would like to do.
Thanks again,
Paul.
Message Edited by bigdave on 11-08-2005 12:13 PM
Attachments:
subvi.zip ‏17 KB

HELPPPP!! need converter from mp4 to mp3 or wave

Does anybody knows how find converter for mp4 to mp3, wav, or anything that readable for the car cd player?
Thanks
Mac Book pro 17 inch Mac OS X (10.4.5)

You should be able to use iTunes to convert your music to a different file format.
*To convert a song's file format:
Choose iTunes > Preferences, then click the Advanced button at the top of the window and click Importing.
From the Import Using pop-up menu, choose the encoding format that you want to convert the song to, then click OK to save the settings.
Select one or more songs in your library, then choose Advanced > Convert Selection to MP3, Convert Selection to AAC, Convert Selection to Apple Lossless, Convert Selection to AIFF, or Convert Selection to WAV. (The menu item changes to show what's selected in your Importing preferences.)
To convert all the songs in a folder or on a disk, hold down the Option key and choose Advanced > "Convert Selection to," then choose the folder or disk containing the songs you want to convert. All the songs in the folder or on the disk will be converted except songs you purchased from the iTunes Store. (Purchased songs are encoded using a protected AAC format that prevents them from being converted.)
*reference: iTunes Help
Hope this helps.

Using "Set Control Value" to pass a reference

Hi,
every time I tried to passe a Control Reference using "Set Control Value" I have the Error 1 (invalid input parameter at invoke node). Why is it not possible to pass a control reference using the invoke node??
Thanks
Golzio

Hi,
This is possible. Trick is, the type of the control reference needs to be
the same as the input. E.g. a string control reference is a different type
as a numeric control reference (, or a control reference).
To avoid this conflic, make sure the input of the vi is a control reference
(and not a e.g. string control reference). Also make sure the to convert the
reference you pass to a control reference (using Application Control>To More
Generic Class).
Regards,
Wiebe.
"Golzio" wrote in message
news:506500000008000000C1F00000-1079395200000@exchange.ni.com...
> Hi,
> every time I tried to passe a Control Reference using "Set Control
> Value" I have the Error 1 (invalid input parameter at invoke node).
> Why is it not possible to pass a control re
ference using the invoke
> node??
>
> Thanks
> Golzio

Static references to images

Adobe RoboHelp 7 creates static references for images I
import into my webhelp pages. Aside from manually converting the
references to relative references, how can I get RH7 to correctly
reference my images?

Hi there
I'm not sure what's up with your version of RoboHelp 7. Maybe
it's how you are inserting images? I've never known RoboHelp to
ever really create absolute references to images. It has always
been quite adept at creating relative references.
Are you absolutely certain absolute references are being
created? I ask, because when you initially select an image by
browsing to it, the reference may look like an absolute reference
until you click OK to commit the information to the page. If you
examine the properties later, the image has been copied to the
project and bears a relative path.
Cheers... Rick

Passing an ActiveX reference from TestStand to Labview

How can I pass and ActiveX reference (for a dll) created and used in a TestStand sequence (under Locals) to a VI running within that sequence so that I can then call the same instance of the dll from Labview?
(I know this isn't the best approach to programming but I'm more interested in proving the point than anything else)
Cheers
Dan

Here's what I think you are tyring to do. Within your sequence, instantiate an object from an ActiveX DLL, storing a reference to it within a TS variable. Then, within a VI called by this sequence, call a method of the intantiated object.
To do this, when specifying your module on your LV step you must check the Sequence Context ActiveX Pointer check box. In the called VI you must have the a Sequence Context control on your front panel and have it wired to your connector pane along with a TestData cluster control and a LV Error Out cluster control.
Within the VI you use an invoke node to invoke the AsPropertyObject method on the SequenceContext (Make sure you use the ActiveX close function on this new reference when you are done with it.). Use another invoke node to call GetValInterface method on the sequence context property object reference (you could probably also use the GetValIDispatch method. See the help). For this invoke node you will want to use a lookupstring that reference the variable, relative to yo sequence context, in which you stored the refernce to the instantiated object in your sequence file. This will return a variant reference. You must convert this reference to a LV reference using the "To G Data" function in the ActiveX palette. The "To G Data" function requires a type input. You will need an ActiveX Automation Refnum control as the input to this (see ActiveX control palette). You will need to right click on this automation refnum control and browse the ActiveX automation server until you find the DLL ActiveX server from which you instantiated your object within your sequence. Once selected, also select the object that you instantiated. The "To G Data" function will then give you a reference to you object on which you can happily used in your desired manner. Make sure to close this reference with an ActiveX Automation close function when you are done with it.
I would definitely clean this up with a subVI to perhaps generalize the solution.

Get StepType reference

Hello,
I want to change a steptype with the Teststand API in LabView by using the method ChangeStepType. The input parameter is a stepTypePtr as StepType. But how can I acquire a StepType reference as a parameter.
Thanks for help!!!
Regards
Matthias

Hi Ray,
thanks for your answer.
Yes, it would worked with your first example, but I want get the reference by the way described in the Teststand API Reference Help. There ist written for the method ChangeStepType:
ChangeStepType Method
Syntax
Step.ChangeStepType ( stepTypePtr)
Purpose
Changes a step's step type.
Remarks
Returns an error if the step does not allow changing its step type. To avoid this error, only call ChangeStepType if CanChangeStepType returns True.
To acquire a step type to pass as a parameter, call Engine.GetTypeDefinition and pass the name of the desired step type, then query the returned PropertyObject for its StepType interface.
Parameters
stepTypePtr As StepType
[In] The step type to which you want to convert the step.
My problem is to convert the reference, which get by the call Engine.GetTypeDefinition into a StepType reference.
Do you have an idea?
Thanks for help!!!
Kind regards
Matthias

Alternate way of finding the Windows Reference Number

Hello,
I am using some of the Windows Utilities VIs and I have run into a snag. In my application I lauch multiple template VIs and hence have many Windows that have the same name. This causes a bit of confusion when using a VI like "Flash Title Bar" which takes in a window's name to determine it's reference number. MY question is, is there an alternative method of finding out a window's reference number without having to supply the window's name? Something that determines each window's unique number. I checked various Application and VI Properties without much luck. Perhaps is there some way of converting VI reference to Windows Reference. I dunno. Any ideas???
Thanks fellow LabVIEWers,
Glen D.

AstroMed Glen wrote:
> Hello,
>
> I am using some of the Windows Utilities VIs and I have run into
> a snag. In my application I lauch multiple template VIs and hence have
> many Windows that have the same name. This causes a bit of confusion
> when using a VI like "Flash Title Bar" which takes in a window's name
> to determine it's reference number. MY question is, is there an
> alternative method of finding out a window's reference number without
> having to supply the window's name? Something that determines each
> window's unique number. I checked various Application and VI
> Properties without much luck. Perhaps is there some way of converting
> VI reference to Windows Reference. I dunno. Any ideas???
Hmm, try attached VI. LabVIEW 7.0 and higher only!
Rolf Kalbermatter
Rolf Kalbermatter
CIT Engineering Netherlands
a division of Test & Measurement Solutions
Attachments:
WIN_Get_Front_Panel_Refnum.vi ‏31 KB

!! Help for a looong script... begin with compare name of files, date...

Hello Everybody, and thank you very much if you can answer to my little problem
So here is the beginning of my script. At the end it will be a script to batch convert Psd files to jpeg in different resolutions, in different folders.
I wanted to understand subtlety some parts of applescript, but I have to say that I failed for this case.
So the part I am looking for is to compare files between two folders, not exactly like syncing.
In the first Folder, psds files.
In the second, Jpgs, wich have been made from the psds, with a 2nd part of the script, batch to jpeg.
I want to compare these files to tell the 2nd script not to batch them to jpeg if they have not been modified.
So the steps I would like to write :
tell applescript to :
1 -
get every files of folder "psd" without invisibles
get only the names of these files without extension
get the modification date of these files
2-
get every files of folder "jpg" without invisibles
get only the names of these files without extension
get the modification date of these files
3- compare the names of the files in psd's and jpg's folders (it's why I didn't want the extension)
if some or all Psds already exist in jpg folder, then
compare the modification dates of these same files
and if these files in psd folder are more recent than in jpeg folder, then
get only these modified files in psd folder, and, also the new ones (not existing in jpg folder).
and --
4 - launch my batchconverttojpg for this result
(at this moment I only want to find steps 1, 2 and 3)
--- It is important for me to do that, because the files in psd's folder will always change, and I can have really big files (like 500 or 800 mo each), and it will be really faster to batch only modified files…
--- Here is the beginning of the script I am writing, but … bug bug bug, I don't find the good way to write that…
set folder1 to "Macintosh HD:Users:Me:Desktop:test batch convert-script:psds" as string
set folder2 to "Macintosh HD:Users:Me:Desktop:test batch convert-script:jpegs:Jpegs" as string
set AppleScript's text item delimiters to ""
tell application "System Events"
set imgsources to every file of folder folder1 whose name does not start with "." and (file type is "psd" or file type is "JPG" or name extension is "psd" or name extension is "jpg")
set imgcibles to every file of folder folder2 whose name does not start with "." and (file type is "psd" or file type is "JPG" or name extension is "psd" or name extension is "jpg")
end tell
--tell application "Finder"
repeat with i from 1 to the count of imgsources without invisibles
set img to (item i of imgsources as alias)
set infosource to info for img
set nameimg1 to name of infosource -- recupere le nom de limage + extension
--set extimg2 to items -1 thru -4 of nameimg2 as text -- recupere l'extension
set nimg1 to items 1 thru -5 of nameimg1 as text -- recupere le nom
set moddateimg1 to modification date of infosource -- recupere la date de modif
repeat with i from 1 to the count of imgcibles without invisibles
set img2 to (item i of imgcibles as list) -- recupere tous les elements du dossier
set infocible to info for img2 -- recupere les infos
set nameimg2 to name of infocible -- recupere le nom de limage de destination
set extimg2 to items -1 thru -4 of nameimg2 as text -- recupere l'extension
set nimg2 to items 1 thru -5 of nameimg2 as text -- recupere le nom
set moddateimg2 to modification date of infocible -- recupere la date de modif
tell application "Finder"
if nimg1 = nimg2 as text then
--set nimg1 to nimg1 as string
--set nimg2 to nimg2 as string
--set name of img2 to folder2 & ":" & nimg2 & "-" & "2" & extimg2 as text
set name of img2 to nimg2 & "-" & "2" & extimg2
-- I am just trying to rename the file at this step.
-- After this, I will compare the dates, and then, batch convert.
end if
end tell
end repeat
end repeat
So if one of you have the good solution It will be a miracle for me
I have to say that if I wrote this script in a simple way like that, it's to be able to understand what I do, or to understand the script after 6 month, without thinking about it…
Thank you very much for your answers
Fred

Ok so there are a lot of things I didn't know about some details… And I see that I will never have succeed to write something like that…
I don't really understand why to "set psdNames to --> {}" this last detail is unknown for me…
And if I understand, the thing I missed is to do a listindex of the items ? it's why I didn't succeed to compare the files ?
Then I though that it could be interesting for you or differents users to see the result. I think it works perfectly now.
Of course, I am not professional in applescript editing, so if you have some comments or modifications, do not hesitate to post them here
Thanks again to Red_Menace !
Fred
Here it is :
(sorry I didnt translate all the notes to English. Just have to know that the script proceed in the folder where it is. If it's not save in the good folder before execute, or save as application in the good folder, then it will proceed in the default folder "applications"... so careful
display dialog " Attention, Le script va créer un dossier psd, et déplacer les fichiers psds ici dans ce nouveau dossier" & return & " Et va ensuite procéder à la création de" & return & " Jpegs dans différents dossiers" buttons {"Ok", "Annuler", "+ d'explications"} default button "OK"
if button returned of the result is "+ d'explications" then
explications()
return
end if
--Application utilisée : adobe photoshop CS3
--Changer la version si besoin dans les lignes ci dessous
--Changer le nom des dossiers ici, sans avoir à changer le reste du script
set nomdossierpsds to "psds"
set psdsFolder to nomdossierpsds
set tempFolderName to "Exports"
set tempfoldername1 to "Jpegs_HD"
set tempfoldername2 to "Jpegs_SD"
--Pour changer la taille des Jpegs SD --
set choixtaille to "1200"
tell application "Finder"
set racine to get folder of (path to me) as Unicode text
set nomprojet to name of folder racine
--if folder psd exists but with different case
if exists folder "psd" in folder racine then
set name of folder "psd" in folder racine to psdsFolder
end if
if exists folder "Psd" in folder racine then
set name of folder "psd" in folder racine to psdsFolder
end if
if exists folder "Psds" in folder racine then
set name of folder "Psds" in folder racine to psdsFolder
end if
--2 -- check si le dossier psd existe, sinon le crée.
if not (exists folder psdsFolder in folder racine) then
make new folder in folder racine with properties {name:psdsFolder}
set psdsFolder to folder psdsFolder in folder racine as alias
open folder psdsFolder
--display dialog "Avant de Continuer, Placer les images dans le dossier Psds" buttons {"Annuler"} default button 1
else
set psdsFolder to folder (racine & "psds") as alias
end if
--if Psd folder didnt exists, then move psd files in
set psds to (files of folder racine whose name extension is "psd")
move psds to folder psdsFolder
--Dossier Jpegs Racine -- outputFolder -- check si present sinon creation
if not (exists folder ((racine as string) & tempFolderName)) then
set outputFolder to make new folder at racine with properties {name:tempFolderName}
else
set outputFolder to folder ((racine as string) & tempFolderName)
end if
--Dossier Jpegs HD -- outputFolder1 pour photoshop -- check si present sinon creation
if not (exists folder (((racine as string) & tempFolderName as string) & ":" & tempfoldername1)) then
set outputFolder1 to make new folder at outputFolder with properties {name:tempfoldername1}
else
set outputFolder1 to folder ((racine as string) & tempFolderName & ":" & tempfoldername1)
end if
set outputFolder1 to outputFolder1 as alias
--Dossier Jpegs SD -- outputFolder2 pour photoshop -- check si present sinon creation
if not (exists folder (((racine as string) & tempFolderName as string) & ":" & tempfoldername2)) then
set outputFolder2 to make new folder at outputFolder with properties {name:tempfoldername2}
else
set outputFolder2 to folder ((racine as string) & tempFolderName & ":" & tempfoldername2)
end if
set outputFolder2 to outputFolder2 as alias
end tell
--recupere le chemin du dossier des psds à procéder
tell application "Finder"
set psdsFolder to folder (racine & nomdossierpsds) as alias
end tell
--1
tell application "Finder" -- get file items from the folders (coerce list items to aliases for use later)
set psdFiles to (files of folder psdsFolder whose name extension is "psd") as alias list
set jpgFiles to (files of folder outputFolder1 whose name extension is "jpg" or name extension is "psd") as alias list
end tell
--2
set psdNames to {} -- get the psd file names (these are in the same order as the file items)
repeat with anItem in psdFiles
set the end of psdNames to (justTheName from anItem)
end repeat
set jpgNames to {} -- get the jpg file names (these are in the same order as the file items)
repeat with anItem in jpgFiles
set the end of jpgNames to (justTheName from anItem)
end repeat
--3
set filesList to {} -- figure out the files to process
repeat with X from 1 to (count psdNames)
set theName to contents of (item X of psdNames) -- get a name from the psd list
if theName is in jpgNames then -- found a jpg match, so check the date
set match to (listIndex of theName from jpgNames) -- get the index of the matching name
tell application "Finder" -- look up the file items for the matching names and get the dates
set psdDate to modification date of (item X of psdFiles)
set jpgDate to modification date of (item match of jpgFiles)
end tell
if psdDate > jpgDate then set the end of filesList to (item X of psdFiles) -- newer file, so add
else -- no match, so add
set the end of filesList to (item X of psdFiles)
end if
end repeat
filesList --> this list contains items (aliases) that are not in jpgsFolder or have a newer modification date
tell application "Adobe Photoshop CS3"
activate
set display dialogs to never
close every document saving no
end tell
repeat with aFile in filesList
set fileIndex to 0
tell application "Finder"
-- The step below is important because the 'aFile' reference as returned by
-- Finder associates the file with Finder and not Photoshop. By converting
-- the reference below 'as alias', the reference used by 'open' will be
-- correctly handled by Photoshop rather than Finder.
set theFile to aFile as alias
set theFileName to name of theFile
end tell
tell application "Adobe Photoshop CS3"
activate
open theFile
set docRef to the current document
set docHeight to height of docRef
set docWidth to width of docRef
------------------------------------------------------------------- 1st Export to jpeg
--Convert the document to a document mode that supports saving as jpeg
flatten docRef
tell docRef to convert to profile "sRGB IEC61966-2.1" intent perceptual with dithering and blackpoint compensation
if (bits per channel of docRef is sixteen) then
set bits per channel of docRef to eight
end if
--The first copy is simply saved with additional document info added
set infoRef to get info of docRef
set copyright notice of infoRef to "Copyright Frédéric Perrin"
set docName to name of docRef
set docBaseName to getBaseName(docName) of me
--set fileIndex to fileIndex + 1
set newFileName to (outputFolder1 as string) & docBaseName & ".jpg"
save docRef in file newFileName as JPEG appending lowercase extension with options {class:JPEG save options, quality:12, format options:optimized}
------------------------------------------------------------------- 2nd export to jpeg
-- The second copy is saved resized to width of 100 pixels proportionally
-- There is no scale constraint in the resize image command.
-- Use the height/width ratio to simulate the option.
set ruler units of settings to pixel units
set type units of settings to pixel units
resize image current document width choixtaille height (choixtaille * docHeight / docWidth)
-- repete la mise en memoire des variables, sinon des bugs
set docRef to the current document
set docName to name of docRef
set docBaseName to getBaseName(docName) of me
--set fileIndex to fileIndex + 1
set newFileName2 to (outputFolder2 as string) & docBaseName & "-" & choixtaille & ".jpg"
save docRef in file newFileName2 as JPEG appending lowercase extension --with options {class:JPEG save options, quality:12, format options:optimized}
-- The original document is closed without saving so it remains as it was
-- when opened for batch processing
close current document without saving
end tell
end repeat
-- Routines
-- Returns the document name without extension (if present)
on getBaseName(fName)
set baseName to fName
repeat with idx from 1 to (length of fName)
if (item idx of fName = ".") then
set baseName to (items 1 thru (idx - 1) of fName) as string
exit repeat
end if
end repeat
return baseName
end getBaseName
on justTheName from someFile
get the name from a file path
parameters - someFile [various]: a complete file path (POSIX or Finder)
returns [text] - the base file name
set someFile to someFile as text
tell application "System Events" to tell disk item someFile
set {theName, theExtension} to {name, name extension}
end tell
if theExtension is in {missing value, ""} then
set theExtension to ""
else
set theExtension to "." & theExtension
end if
return text 1 thru -((count theExtension) + 1) of theName -- just the name part
end justTheName
to listIndex of anItem from someList
get the (first) index of anItem in someList
parameters - anItem [various]: the item to look for
someList [list]: the list to look in
returns [integer]: the index (0 if not found)
set theIndex to 0
repeat with X from 1 to (count someList)
if (contents of (item X of someList)) is anItem then
set theIndex to X
exit repeat
end if
end repeat
return theIndex
end listIndex
on explications()
tell application "TextEdit"
activate
make new document
set text of front document to ¬
"--- Attention --- Le Script se lance pour gérer le dossier dans lequel il se trouve." & return & return & ¬
"Pour ne plus voir ce message, ouvrir le script/application et l'éditer avec un éditeur comme Editeur applescript : Effacer alors le premier paragraphe --> End Message" & return & return & return & ¬
"Il vérifie l'existence d'un dossier Psd, s'il existe, mais pas dans la bonne casse, renomme le dossier --" & return & "Donc -- attention -- si d'autres scripts sont chainés à ce dossier, il faudra mettre à jour la casse ou orthographe, sinon changer les variables en début de script afin que tous les scripts marchent avec le meme nom de ce dossier psd" & return & return & ¬
"Une fois cela géré, le dossier -psds- est créé, sil n'est pas deja la. Les fichiers psds pouvant être présents à la racine du dossier, où se trouve le script, seront déplacés dans le dossier psd" & return & ¬
"Ensuite, création d'un dossier jpeg contenant deux autres dossiers : jpgs HD et Sd, le 1er contiendra les jpegs à la resolution source du psd, le dossier Sd à la résolution de 1200px, soit acceptable pour le web ou le partage temporaire" & return & return & ¬
"Pour finir, le script peut être relancé à l'infini, les dossiers se synchronisent en fonction du dossier Psd et JpegsHD. Si de nouveaux fichiers se trouvent dans le dossier Psd, ou bien sils ont été modifiés, alors ils seront re-batchés en jpegs dans les dossiers correspondants." & return & ¬
"Donc -- Attention -- , ne jamais faire de retouches sur les fichiers Jpegs, seulement sur les psds, et -- attention-- aussi, les fichiers jpegs correspondants aux psds retouchés seront écrasés" & return & ¬
"Pour conserver des versions des fichiers, à la main, renommer séquentiellement les psds à l'enregistrement dans photoshop, ainsi les jpegs seront séquentiels aussi" & return & return & return & ¬
"La préférence, de choisir à la main la séquence des fichiers psds semble être plus pratique à l'usage, et de garder un minimum la main sur les images, afin de s'y retrouver" & return & return & return
end tell
end explications
-------------------------------------------------------------------

How to create internal table dynamically?

hi all
I have a particular internal table in memory area( thru EXPORT TO MEMORY ID ....)
how can i create an internal table of this type in another program at runtime ?
this internal table need not be a data dictionary type.
i.e., i need to create an internal table of type which
is stored in a particular memory-id.
Regards,
Naveen........
null

Hi,
Check this code :
TYPE-POOLS: slis.
FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE,
                <fs_dyntable>,
                <fs_fldval> type any.
PARAMETERS: p_cols(5) TYPE c.
DATA:        t_newtable TYPE REF TO data,
             t_newline TYPE REF TO data,
             t_fldcat   TYPE slis_t_fldcat_alv,
             t_fldcat   TYPE lvc_t_fcat,
             wa_it_fldcat TYPE lvc_s_fcat,
             wa_colno(2) TYPE n,
             wa_flname(5) TYPE c.
* Create fields .
DO p_cols TIMES.
    CLEAR wa_it_fldcat.
    move sy-index to wa_colno.
    concatenate 'COL'
                wa_colno
           into wa_flname.
    wa_it_fldcat-fieldname = wa_flname.
    wa_it_fldcat-datatype = 'CHAR'.
    wa_it_fldcat-intlen = 10.
    APPEND wa_it_fldcat TO t_fldcat.
ENDDO.
* Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = t_fldcat
    IMPORTING
      ep_table        = t_newtable.
ASSIGN t_newtable->* TO <t_dyntable>.
* Create dynamic work area and assign to FS
CREATE DATA t_newline LIKE LINE OF <t_dyntable>.
ASSIGN t_newline->* TO <fs_dyntable>.
DATA it_fieldcatalog TYPE lvc_t_fcat.
DATA lr_table TYPE REF TO data.
FIELD-SYMBOLS <lt_table> TYPE table.
*-- Import the fieldcatalog
IMPORT it_fieldcatalog TO it_fieldcatalog
       FROM MEMORY ID 'CREATE_DYNAMIC_TABLE'.
IF sy-subrc <> 0.
EXIT.
ENDIF.
*-- Create the dynamic table with the field catalog as structure
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
    it_fieldcatalog           = it_fieldcatalog
IMPORTING
    ep_table                  = lr_table
EXCEPTIONS
    generate_subpool_dir_full = 1
    OTHERS                    = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
*-- Convert the reference into a table
ASSIGN lr_table->* TO <lt_table>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
*-- Export the created table so that the function module can import it
EXPORT lt_table FROM <lt_table>
       TO MEMORY ID 'CREATE_DYNAMIC_TABLE'.
Regards
L Appana

Convert vi reference

Similar Messages

Maybe you are looking for