Cutting off last4 characters

[hipopony66]

How can I trim the last 4 characters off of a string? Like:

strSong= "Superdrag - Baby Goes To Eleven.mp3"

I want to cut the last 4 characters (.mp3) off of the string and save as a new string.

strNew= Function I need here(strSong)

Any help appreciated.

[mendhak]

abc = Left(abc, Len(abc) - 4)

[hipopony66]

How can I check to see if a character exists in a string? Say if I want to check my string for a comma.

[Red Rush-In]

strSong = left(strSong, len(strSong) - 4)

[darre1]

Originally posted by hipopony66
How can I check to see if a character exists in a string? Say if I want to check my string for a comma.

If InStr(str,",") > 0 Then Msgbox "Yup!"

[mepaco]

locationInString = InStr(1, yourString, ",")

[Red Rush-In]

Originally posted by hipopony66
How can I check to see if a character exists in a string? Say if I want to check my string for a comma.

If InStr(1, strSong, ",", vbTextCompare) Then
        'Its in there
End If

TextCompare is not case sensetive, BinaryCompare is.

[mendhak]

Originally posted by hipopony66
How can I check to see if a character exists in a string? Say if I want to check my string for a comma.

if instr(string,",") then
msgbox("comma exists")
end if

(btw, instr gives the position of that comma)

edit: corrected

[mendhak]

first last. crap.

[hipopony66]

Trim off thing isn't working.

My code is like:

artist= temp(0)

How would I cut the last 4 characters off of temp(0)?

[hipopony66]

tmpartist = temp(0)
    artist = Left(tmpartist, Len(tmpartist) - 4)

[darre1]

artist = Left$(temp(0), Len(temp(0)-4))

[hipopony66]

It's still not cutting off the ".mp3". It doesn't make any sense to me

[darre1]

can you paste your code exactly and a few lines before and after it please?

[hipopony66]

Dim genretemp As String
 Dim hastag As Boolean
 Dim Tag As String * 3     ' First 3 Chars of 128 byte Tag Info - 'TAG'
 Dim Songname As String * 30
 Dim artist As String * 30
 Dim album As String * 30
 Dim year As String * 4
 Dim comment As String * 30
 Dim genre As String * 1
 
 Dim temp() As String
 Dim x As Integer
 Dim mp3 As String
 
lbltotal.Caption = File1.ListCount
On Error Resume Next
'start the loop
For x = 0 To File1.ListCount - 1
    lblcurrent = x + 1
    
    filename = Dir1.Path & "\" & File1.List(x)
    mp3 = File1.List(x)
    temp = Split(mp3, " - ") 'split up the info
 
'check for other exiting ID3 info
Open filename For Binary As #1
    Get #1, FileLen(filename) - 127, Tag
    If Not Tag = "TAG" Then
    Close #1
    hastag = False
        Exit Sub
        End If
        hastag = True
    filename = filename
    Get #1, , Songname
    Get #1, , artist
    Get #1, , album
    Get #1, , year
    Get #1, , comment
    Get #1, , genre
    Close #1
'''''''''end of reading file''''''''''''''''''
'remember the other fields
    album = RTrim(album)
    year = RTrim(year)
    comment = RTrim(comment)
    genretemp = RTrim(genre)         'read gengre character to "temp"
    genre = Asc(genretemp)          'convert chr-code to ASCII-number
    
    Tag = "TAG"
    artist = Left$(temp(0), Len(temp(0)) - 4)
    Songname = temp(1)
    'Write the tag
    Open filename For Binary Access Write As #1
    Seek #1, FileLen(filename) - 127
    Put #1, , Tag
    Put #1, , Songname
    Put #1, , artist
    Put #1, , album
    Put #1, , year
    Put #1, , comment
    Put #1, , genre
    Close #1
DoEvents
Next
 
 
End Sub

[darre1]

thats coz you done it to the wrong variable ya plonker.

change

artist = Left$(temp(0), Len(temp(0)) - 4)
    Songname = temp(1)

to

artist = temp(0)
Songname = Left$(temp(1), Len(temp(1)) - 4)

[darre1]

PS: no offence, only messing

[hipopony66]

I noticed that before I read your post! I was looking at the ID3 info in Explorer (Win XP) and I noticed that all of my artist names were 4 characters short! Thanks for the help.

[mendhak]

Plonker! haa... The brits never cease to amaze and amuse me....

That's just lovely.

[mendhak]

No offence, but it's true!!!

[darre1]

Originally posted by hipopony66
I noticed that before I read your post! I was looking at the ID3 info in Explorer (Win XP) and I noticed that all of my artist names were 4 characters short! Thanks for the help.

you're welcome

[darre1]

Originally posted by mendhak
Plonker! haa... The brits never cease to amaze and amuse me....

That's just lovely.

tee-hee

you should watch "only fools and horses", brialliant british sit-com

[mendhak]

I've only seen Mr.Bean on the world's most ****ED UP channel, PBS. Other than that, I have no source to watch any british sitcom.... Unless it's on BBC, but it's reception is pretty poor, here in Mongolia.

[darre1]

well, for what its worth i havent seen any mongolian sit-coms either