logo
Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
StorkBite  
#1 Posted : Monday, April 24, 2006 11:23:04 PM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
I recently start up with a Value Line subscription. Unlike IBD, I don't see a way to d/l the stocks in an Excel format or any other pre-formatted state. As such I came up with this fairly painless method of converting the clipboard to simple text using MS WORD. After the conversion is complete just save the file as simple text and change the extension to sym for the Downloader. [code:1:bd3c920063]Sub FormatValueLine() ' 1) Highlight ValueLine symbols on screen and copy to clipboard ' 2) In Word, select EDIT | PASTE SPECIAL | UNFORMATTED TEXT | OK ' 3) Manually remove all parentheses that are not surrounding a ticker symbol before running macro!! ' Insert blank space at end of symbol list Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdStory For i = 1 To 100 Selection.TypeParagraph Next i ' Remove extra row spaces Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ^p ^p ^p " .Replacement.Text = " ^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Remove column separator Selection.HomeKey Unit:=wdStory For i = 1 To 100 With Selection.Find .Text = " " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=3 Selection.HomeKey Unit:=wdLine Next i ' Truncate space on right side of symbol Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ") " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Truncate space on left side of symbol Selection.HomeKey Unit:=wdStory For i = 1 To 100 Selection.Find.ClearFormatting With Selection.Find .Text = "(" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Next i ' Format symbol for QC Selection.HomeKey Unit:=wdStory For i = 1 To 100 Selection.TypeText Text:="us;" Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Next i ' Return to home Selection.HomeKey Unit:=wdStory End Sub[/code:1:bd3c920063]
wabbit  
#2 Posted : Monday, April 24, 2006 11:28:58 PM(UTC)
wabbit

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers, Unverified Users
Joined: 10/28/2004(UTC)
Posts: 3,111
Location: Perth, Western Australia

Was thanked: 16 time(s) in 16 post(s)
G If you send me the data file to my email, as it is downloaded/received from the originator, I will have a look at an Excel macro for you. wabbit :D
StorkBite  
#3 Posted : Monday, April 24, 2006 11:54:11 PM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
Thanks W. There is no download option as far as I can discern. I am just highlightling the text off the screen and copying it to the clipboard. The Excel macro is no sweat, but I was hoping someone would stop by and say Hey! Just click here to find the d/l section on the Value Line website. I'm lazy.
hayseed  
#4 Posted : Tuesday, April 25, 2006 1:32:15 AM(UTC)
hayseed

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers
Joined: 3/7/2005(UTC)
Posts: 1,346

hey g ..... not sure what your after but here's a few...... click and save excel type links.....h [EDITED by Moderator]
StorkBite  
#5 Posted : Tuesday, April 25, 2006 1:48:05 AM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
Wow! That's exactly what I was hoping existed. I wrote an email to ValueLine asking them if such formats existed, but have yet to receive a reply. I temporarily edited (hid) those links until you tell me that they are available for anyone to see without a subscription. I realize that they are open access, but are the files intended for non-subscribers too? If so, I should have saved my annual subscription fee. Let me know. p.s., thanks for the speedy reply! :D
hayseed  
#6 Posted : Tuesday, April 25, 2006 2:22:49 AM(UTC)
hayseed

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers
Joined: 3/7/2005(UTC)
Posts: 1,346

now now g...... you don't think i'd hack their site do ya.... :angel: ....... those are free for anyone..... kinda thought i had more, will scratch around for'em if its what your after..... if it's somthin i get by, uhh, shall we say 'questionably means'.... i won't post it..... h
StorkBite  
#7 Posted : Tuesday, April 25, 2006 2:33:15 AM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
standard small and mid cap value line 600 research center The links seem to report back only a broad universe of stocks. I could not correlate them to the current listing. They really have no meaning as far as I can discern. They are not ranked, nor do they have a file date associated with them. It might be a ploy to suck in the leeches. I found a few other variations that worked too (try appending VL100 and Select). Thanks for clarifying.
hayseed  
#8 Posted : Tuesday, April 25, 2006 3:11:59 AM(UTC)
hayseed

Rank: Advanced Member

Groups: Registered, Registered Users, Subscribers
Joined: 3/7/2005(UTC)
Posts: 1,346

hey g.... yeah those are just value lines basic lists, not ranked... are lookin for the lists say like, grouped/ranked by timeliness 1 thru 5......h
StorkBite  
#9 Posted : Tuesday, April 25, 2006 4:30:50 AM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
Yep.. the timeliness list. Like I mentioned, I have the info, but I had to work to get it formatted. No biggie, I just thought I might be missing something. I'm slow, but I eventually get where I'm going! :P
StorkBite  
#10 Posted : Tuesday, April 25, 2006 6:52:48 AM(UTC)
StorkBite

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 3/19/2005(UTC)
Posts: 2,995

Was thanked: 14 time(s) in 10 post(s)
Follow the links to 'The Value Line Investment Survey - Standard Edition - Stock Screener'. After that, screen the list for Timeliness Rank = 1. When the list appears, you will be given an option to save the results in an Excel file. Perfect. Thanks Jim!
Users browsing this topic
Guest (Hidden)
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.