Giuseppe "Cowo" Corbelli ...

Here's a quick note on how to get it working without Samsung software. It requires pmplib and, optionally, a quick python hack I developed. My hack is tested under m$-windows and Debian GNU/Linux.

1. Download and compile pmplib code from subversion
2. Put some mp3s in the System/MUSIC directory on the device
3. Ask easypmp_cui/gui to rebuild/update the database
4. Optional Download my playlist package and unpack it somewhere.

Get started by rebuilding or updating the device database (refer to pmplib website for more info). If you also asked pmplib to update/build playlists it will convert winamp-style playlists to be playable on your device, and you don't need anything else.

If you want to build playlists from scratch, in the format playable by the YH920 you need to download my playlist package. Sample command:

python test.py -b H:\ -o Tyr H:\System\MUSIC\Tyr-EricTheRed 

Hope this is useful, as it was for me.

If explanations are not good (and they are not good, I know) feel free to send me a better version.

Disclaimer: I'm not a visual basic programmer. In fact I don't know visual basic at all; this was my second experiment in vb.

A previous post was about a similar macro for Visual Studio 6.0. This one works for the 7.1 IDE.

Tipographic note: to constrain this code in blog's page width, I've had to break long lines with '\'. I don't know if this line-break is acceptable to vb, so don't copy&paste blindly.

Sub CommentUncomment()
  Dim StartLine, EndLine, Temp As Integer
  Dim Sel As TextSelection
  StartLine = ActiveDocument().Selection.TopLine
  EndLine = ActiveDocument().Selection.BottomLine
  If EndLine < StartLine Then
    Temp = StartLine
    StartLine = EndLine
    EndLine = Temp
  End If

  For Temp = StartLine To EndLine
    Sel = ActiveDocument().Selection()
    Sel.GotoLine(Temp)
    Sel.StartOfLine(\
      vsStartOfLineOptions.vsStartOfLineOptionsFirstText\
    )
    Sel.CharRight(True, 3)
    If Sel.Text = "//~" Then
      Sel.Delete()
    Else
      Sel.Text() = "//~" & Sel.Text()
      Sel.GotoLine(Temp)
      Sel.StartOfLine(\
       vsStartOfLineOptions.vsStartOfLineOptionsFirstText\
      )
    End If

  Next

End Sub