40 aint no joke - General fitness thread

You probably can't do it, so don't even try.
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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.
"Be bold, and mighty forces will come to your aid."
TheCatt
Site Admin
Posts: 53728
Joined: Thu May 20, 2004 11:15 pm
Location: Cary, NC

Post 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.
It's not me, it's someone else.
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post by GORDON »

Nope. Stretching out hard, arms straight, full lat power.
"Be bold, and mighty forces will come to your aid."
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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.
"Be bold, and mighty forces will come to your aid."
TheCatt
Site Admin
Posts: 53728
Joined: Thu May 20, 2004 11:15 pm
Location: Cary, NC

Post by TheCatt »

Let me know how those work out, I'm intrigued by getting swim music again.
It's not me, it's someone else.
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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.
"Be bold, and mighty forces will come to your aid."
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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.
"Be bold, and mighty forces will come to your aid."
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
TheCatt
Site Admin
Posts: 53728
Joined: Thu May 20, 2004 11:15 pm
Location: Cary, NC

Post by TheCatt »

I'm sure you could do it in 3 lines of powershell.
It's not me, it's someone else.
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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.
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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
"Be bold, and mighty forces will come to your aid."
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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.
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post 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.
"Be bold, and mighty forces will come to your aid."
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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.
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
Malcolm
Posts: 32040
Joined: Fri May 21, 2004 1:04 pm
Location: Minneapolis

Post 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.
Diogenes of Sinope: "It is not that I am mad, it is only that my head is different from yours."
Arnold Judas Rimmer, BSC, SSC: "Better dead than smeg."
Malcolm
Posts: 32040
Joined: Fri May 21, 2004 1:04 pm
Location: Minneapolis

Post 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
Diogenes of Sinope: "It is not that I am mad, it is only that my head is different from yours."
Arnold Judas Rimmer, BSC, SSC: "Better dead than smeg."
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post by GORDON »

TPRJones wrote:But just for the sake of completion:
Now it doesn't like selection.text


:-D
"Be bold, and mighty forces will come to your aid."
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
GORDON
Site Admin
Posts: 54399
Joined: Sun Jun 06, 2004 10:43 pm
Location: DTManistan
Contact:

Post by GORDON »

No errors... was it supposed to put a number in front of the file names?
"Be bold, and mighty forces will come to your aid."
TPRJones
Posts: 13418
Joined: Fri May 21, 2004 2:05 pm
Location: Houston
Contact:

Post 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
"ATTENTION: Customers browsing porn must hold magazines with both hands at all times!"
Post Reply