Page 4 of 29

Posted: Sat Dec 05, 2015 10:04 am
by GORDON
Ok, here's what I did this morning.

About 20 minutes of half-power, focusing on 2-stroke breathing which feels really strange, and doing flip-turns. I did maybe 10 of them, and 4 felt pretty good. One was comical because I kicked too shallow and I breached still completely inverted and tried to swim and ended up coughing and stuff. Noob.

5 minutes of your "anarobic" lengths at about 95% power. It feels weird not exhaling as I go. The first one I managed to do the length of the pool with only 1 breath about 2/3 of the way down. The rest weren't as good, because I was starting them still breathing hard, but at least I know where my baseline is. I will keep working that.

5 minutes of my 100% power sprints, breathing on a 2 or 4-stroke depending on how I feel, and just clawing my way through the water as hard as I can.... I can really feel it in my lats.

Then a nice easy cooldown length.

++++

Story continues in the "Irrational Bitching" thread.

Posted: Sat Dec 05, 2015 10:35 am
by TheCatt
GORDON wrote:I can really feel it in my lats.
This is a good sign. You need to make sure your body is engaged, way too many people feel it in their arms or shoulders due to bad form.

Posted: Sat Dec 05, 2015 10:48 am
by GORDON
Nope. Stretching out hard, arms straight, full lat power.

Posted: Mon Dec 07, 2015 8:04 pm
by GORDON
So these arrived today, just in time to hit the pool tomorrow.

http://www.amazon.com/gp....o00_s01

The buds are straight-up ear plugs, these fuckers are jammed into my ear canal as I type. Sound is good. As long as the base unit on the back of my head is watertight, this should be good. And if they dont come off my head during my powerful swim strokes... it doesn't feel all that tight. Though, I might be able to put my goggles strap over it. I don't know. Tomorrow.

Posted: Mon Dec 07, 2015 8:26 pm
by TheCatt
Let me know how those work out, I'm intrigued by getting swim music again.

Posted: Mon Dec 07, 2015 8:32 pm
by GORDON
I am wearing them now, learning how to blindly hit the buttons on the back of my head, gauging the battery life...

BIG CON: apparently, no shuffle option. I went through my music, picked 1-4 songs off of lots of albums, so now I get 4 Prodigy songs in a row... 3 Def Leppard songs in a row... 4 Tesla songs in a row...

I want a shuffle feature.

Posted: Mon Dec 07, 2015 8:42 pm
by GORDON
This thing is basically just an USM flash drive, according to your computer... I am trying to think of a way to mix up the physical...

No, I just need to add a few random letters in the front of each file name. That will work.

Posted: Mon Dec 07, 2015 8:50 pm
by TPRJones
A quick Excel macro to run down the list of filenames and add a random number in front would do the trick. Something like this (note two places that need a path and filename put in):

Sub Randomize_Songs()
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
MyPath = "PUT FULL PATH TO FILES HERE"
MyName = Dir(MyPath + "*.*")
Do While MyName <> ""
ActiveSheet.Range("A1").Value = MyName
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
MyName = Dir
Loop
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]=""PUT NAME OF THIS EXCEL MACRO FILE HERE"",""NONONO"",RC[1])"
Range("A1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Replace What:="NONONO", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1)), TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Copy
Columns("H:H").Select
ActiveSheet.Paste
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[-6])"
Range("H1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Application.CutCopyMode = False
Columns("H:H").Select
Selection.Copy
Columns("I:L").Select
ActiveSheet.Paste
Columns("H:L").Select
Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-6]=""-"""
Range("L1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.End(xlUp).Select
Columns("H:L").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("L:L").Select
Application.CutCopyMode = False
Selection.Copy
Columns("M:M").Select
ActiveSheet.Paste
Range("M1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5],RC[-4],RC[-3],RC[-2],RC[-1]),RC[-6],RC[-12])"
Range("M1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:L").Select
Range("L1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
Columns("D:D").Select
ActiveSheet.Paste
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=INT(RAND()*9997)+1"
Range("C1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""0000"")&""-""&RC[-2]"
Range("D1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:C").Select
Range("C1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Do While ActiveSheet.Range("A1").Value <> ""
OldName = MyPath + ActiveSheet.Range("A1").Value
NewName = MyPath + ActiveSheet.Range("B1").Value
fs.MoveFile OldName, NewName
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Loop
On Error GoTo 0
End Sub




Edited By TPRJones on 1449539499

Posted: Mon Dec 07, 2015 8:54 pm
by TheCatt
I'm sure you could do it in 3 lines of powershell.

Posted: Mon Dec 07, 2015 9:04 pm
by TPRJones
What can I say, this is the only hammer I've had the opportunity to use for the past decade. There are better hammers out there, but this one has become mine.

Posted: Mon Dec 07, 2015 9:29 pm
by GORDON
TPRJones wrote:A quick Excel macro to run down the list of filenames and add a random number in front would do the trick. Something like this (note two places that need a path and filename put in):

Sub Randomize_Songs()
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
MyPath = "PUT FULL PATH TO FILES HERE"
MyName = Dir(MyPath + "*.*")
Do While MyName <> ""
ActiveSheet.Range("A1").Value = MyName
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
MyName = Dir
Loop
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]=""PUT NAME OF THIS EXCEL MACRO FILE HERE"",""NONONO"",RC[1])"
Range("A1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Replace What:="NONONO", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1)), TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Copy
Columns("H:H").Select
ActiveSheet.Paste
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[-6])"
Range("H1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Application.CutCopyMode = False
Columns("H:H").Select
Selection.Copy
Columns("I:L").Select
ActiveSheet.Paste
Columns("H:L").Select
Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-6]=""-"""
Range("L1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.End(xlUp).Select
Columns("H:L").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("L:L").Select
Application.CutCopyMode = False
Selection.Copy
Columns("M:M").Select
ActiveSheet.Paste
Range("M1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5],RC[-4],RC[-3],RC[-2],RC[-1]),RC[-6],RC[-12])"
Range("M1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:L").Select
Range("L1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
Columns("D:D").Select
ActiveSheet.Paste
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=INT(RAND()*9997)+1"
Range("C1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""0000"")&""-""&RC[-2]"
Range("D1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:C").Select
Range("C1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Do While ActiveSheet.Range("A1").Value <> ""
OldName = MyPath + ActiveSheet.Range("A1").Value
NewName = MyPath + ActiveSheet.Range("B1").Value
fs.MoveFile OldName, NewName
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Loop
On Error GoTo 0
End Sub

If I plugged in the macro correctly... and that was a first for me... it errored out on the run.

Here's what I ran:

Sub Randomize_Songs()
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
MyPath = "C:\Users\Steve\Desktop\a"
MyName = Dir(MyPath + "*.*")
Do While MyName <> ""
ActiveSheet.Range("A1").Value = MyName
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
MyName = Dir
Loop
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]=""File_name"",""NONONO"",RC[1])"
Range("A1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Replace What:="NONONO", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1)), TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Copy
Columns("H:H").Select
ActiveSheet.Paste
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[-6])"
Range("H1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Application.CutCopyMode = False
Columns("H:H").Select
Selection.Copy
Columns("I:L").Select
ActiveSheet.Paste
Columns("H:L").Select
Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-6]=""-"""
Range("L1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.End(xlUp).Select
Columns("H:L").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("L:L").Select
Application.CutCopyMode = False
Selection.Copy
Columns("M:M").Select
ActiveSheet.Paste
Range("M1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-5],RC[-4],RC[-3],RC[-2],RC[-1]),RC[-6],RC[-12])"
Range("M1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:L").Select
Range("L1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
Columns("D:D").Select
ActiveSheet.Paste
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=INT(RAND()*9997)+1"
Range("C1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""0000"")&""-""&RC[-2]"
Range("D1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:C").Select
Range("C1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Do While ActiveSheet.Range("A1").Value <> ""
OldName = MyPath + ActiveSheet.Range("A1").Value
NewName = MyPath + ActiveSheet.Range("B1").Value
fs.MoveFile OldName, NewName
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Loop
On Error GoTo 0
End Sub


Run time error: 1004

On debug this bit gets highlighted:

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Excel 2000, btw.




Edited By GORDON on 1449541830

Posted: Mon Dec 07, 2015 9:42 pm
by TPRJones
Oh, I wrote it in 2013. I don't even remember 2000 anymore. Hmmm.

Try replacing both Selection.Sort commands with this:

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

That's just taking off the DataOption1:=xlSortNormal from the end of each, really. No DataOptions in 2000, apparently. It was just saying to do it normally anyway, so it should be fine without it.

No promise there won't be other errors though in a system difference of a decade.

Posted: Mon Dec 07, 2015 9:44 pm
by GORDON
Now it doesn't like selection.replace.

No big deal, I only had about a hundred files, just now I did all the file names manually while waiting for your response. I only swim 45 minutes at a time, I can deal with this, for now.

Posted: Mon Dec 07, 2015 10:05 pm
by TPRJones
Dang antiquated software. But just for the sake of completion:

Selection.Replace What:="NONONO", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False

No format functionality on Selection.Replace in 2000, either, apparently.

Posted: Mon Dec 07, 2015 10:12 pm
by Malcolm
TheCatt wrote:I'm sure you could do it in 3 lines of powershell.
Wtf is he trying to do? Name files?

Put a random number in front of files? That's one line, I think. Two if you insist on putting the ForEach statement on its own line. Goddamn, there's already a RNG for PowerShell 2.0 that does the hard part for you.

Posted: Mon Dec 07, 2015 10:17 pm
by Malcolm
GORDON wrote:Now it doesn't like selection.replace.

No big deal, I only had about a hundred files, just now I did all the file names manually while waiting for your response. I only swim 45 minutes at a time, I can deal with this, for now.

Powershell code I'm too lazy to check at the moment...

ForEach $file in Get-ChildItem C:\Scripts -force:
Rename-Item file Get-Random -minimum 1 -maximum 101, $file -join "_"

Or something. Actually, the interpreter will choke on that. I need to clean it up.




Edited By Malcolm on 1449544717

Posted: Mon Dec 07, 2015 10:20 pm
by GORDON
TPRJones wrote:But just for the sake of completion:
Now it doesn't like selection.text


:-D

Posted: Mon Dec 07, 2015 10:28 pm
by TPRJones
Damn it!

Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1))

Backwards compatibility can bite me.

EDIT: Looking at the rest of the code, I think that's probably the last one. The rest is simple enough not to have changed from 2000. *knock on wood*




Edited By TPRJones on 1449545464

Posted: Mon Dec 07, 2015 10:29 pm
by GORDON
No errors... was it supposed to put a number in front of the file names?

Posted: Mon Dec 07, 2015 10:32 pm
by TPRJones
It should take any file that doesn't start with a four digit number and dash (like 1045-) and put one in front. And any that already have such a number should get a different number (so it can be reused to reorder the files without making the names keep growing).

I'm guessing from your question that it didn't actually work. *sigh* Did you put in the path to the folder?

It works in 2013, darn it!

This is so embarrassing.




Edited By TPRJones on 1449545708