Code: Select all

If (tmp >= &H590 OR tmp <= &H5FF) Then

Code: Select all

If (tmp >= &H590 AND tmp <= &H5FF) Then

Code: Select all

Function ConditionalReverse(rev)
  If rev = "" Then
    ConditionalReverse = rev
  Else
   Dim RE, Matches
    Set RE = New RegExp
    RE.IgnoreCase = True
    RE.Global = True
    RE.Pattern = "[\u0590-\u05FF]"
    Set Matches = RE.Execute(rev)
    If Matches.Count > 0 Then
      ConditionalReverse = StrReverse(rev)
    Else
      ConditionalReverse = rev
    End If
  End If
End Function

Code: Select all

Function ConditionalReverse(rev)
  If rev = "" Then
    ConditionalReverse = rev
  Else
    Dim i, tmp, bHebrew

    For i=1 To Len(rev)
      tmp = Mid(rev, i, 1)
      If HasHebrew(tmp) Then
        bHebrew = True
        'MsgBox ("has hebrew")
        Exit For
      End if
    Next

    If bHebrew = True Then
      ConditionalReverse = StrReverse(rev)
    Else
      ConditionalReverse = rev
    End If
  End If
End Function

Function HasHebrew(rev)
  Dim tmp
  tmp = AscW(rev)

  If (tmp >= &H590 OR tmp <= &H5FF) Then
     HasHebrew = true
  Else
     HasHebew = false
  End If

End Function

Code: Select all

Sub ReverseTags
  Dim list, itm, i

  ' Get list of selected tracks from MediaMonkey
  Set list = SDB.CurrentSongList 

  ' Process all selected tracks
  For i=0 To list.count-1
    Set itm = list.Item(i)
    If (itm.BPM <> 1 AND itm.BPM <> 2) Then     ' Reverse only if modification flag isn't on yet
        itm.Title = ConditionalReverse(itm.Title)
        itm.ArtistName = ConditionalReverse(itm.ArtistName)
        itm.AlbumArtistName = ConditionalReverse(itm.AlbumArtistName)
        itm.Genre = ConditionalReverse(itm.Genre)
        itm.Album.Name = ConditionalReverse(itm.Album.Name)
        itm.BPM = 1 ' Make sure we won't reverte this file at next startup
    End If
  Next

  ' Write all back to DB and update tags
  list.UpdateAll
End Sub

' Reverse if string contains Hebrew
Function ConditionalReverse(rev)
  If rev = "" Then
    ConditionalReverse = rev
  End If

  Dim i, list, tmp

  list = Split(rev)
  tmp = rev

  For i=0 To UBound(list)
    If HasHebrew(list(i)) Then
      'MsgBox ("has hebrew")
      tmp = StrReverse(rev)
    End if
  Next

  ConditionalReverse = tmp
End Function

' Check if a string contains Hebrew ( = ascii betwee 224-250)
Function HasHebrew(rev)
  Dim tmp
  tmp = Asc(rev)

  If (tmp >= 224 OR tmp <= 250) Then
     HasHebrew = true
  End If

  HasHebew = false
End Function