A little mod of a Love Song - Printable Version

A little mod of a Love Song - Printable Version

+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: A little mod of a Love Song (/showthread.php?tid=1669)

A little mod of a Love Song - bplus - 05-09-2023

Silly Love Songs:

Code: (Select All)
You'd think that people would've had enough of silly love songs

I look around me, and I see it isn't so

Some people want to fill the world with silly love songs

And what's wrong with that?

I'd like to know, 'cause here I go again

I love you

I love you

I love you

I love you

I can't explain, the feeling's plain to me (I love you)

Now can't you see?

Ah, she gave me more, she gave it all to me (I love you)

Now can't you see?

What's wrong with that?

I need to know, 'cause here I go again

I love you

I love you

Love doesn't come in a minute

Sometimes it doesn't come at all

I only know that when I'm in it

It isn't silly, love isn't silly, love isn't silly at all

How can I tell you about my loved one?

How can I tell you about my loved one?

How can I tell you about my loved one? (I love you)

How can I tell you about my loved one? (I love you)

I love you

I love you

I love you (I can't explain, the feeling's plain to me, say, can't you see?)

I love you (Ah, he gave me more, he gave it all to me, say, can't you see?)

I love you (I can't explain, the feeling's plain to me

Say, can't you see?)

{How can I tell you about my loved one?}

I love you (Ah, he gave me more, he gave it all to me

Say, can't you see?)

How can I tell you about my loved one?

I love you

I can't explain, the feeling's plain to me

(Say, can't you see?)

How can I tell you about my loved one?

I love you

Ah, he gave me more, he gave it all to me

(Say, can't you see?)

How can I tell you about my loved one?

You'd think that people would've had enough of silly love songs

I look around me and I see it isn't so, oh, no

Some people want to fill the world with silly love songs

And what's wrong with that?

modification code:

Code: (Select All)
_Title "Silly Love Songs Rewrite" ' b+ 2023-05-09

Open "Silly Love Songs.txt" For Input As #1

Open "Silly Graph Apps.txt" For Output As #2

While EOF(1) = 0

    Line Input #1, fl$

    fl$ = strReplace$(fl$, "song", "app")

    fl$ = strReplace$(fl$, "loved", "graphed")

    fl$ = strReplace$(fl$, "love", "graph")

    fl$ = strReplace$(fl$, "Love", "Graph")

    fl$ = strReplace$(fl$, " he ", " e ")

    fl$ = strReplace$(fl$, " she ", " e ")

    Print fl$

    Print #2, fl$

Wend

Close

Function strReplace$ (s$, replace$, new$) 'case sensitive  2020-07-28 version

    Dim p As Long, sCopy$, LR As Long, lNew As Long

    If Len(s$) = 0 Or Len(replace$) = 0 Then

        strReplace$ = s$: Exit Function

    Else

        LR = Len(replace$): lNew = Len(new$)

    End If

    sCopy$ = s$ ' otherwise s$ would get changed

    p = InStr(sCopy$, replace$)

    While p

        sCopy$ = Mid$(sCopy$, 1, p - 1) + new$ + Mid$(sCopy$, p + LR)

        p = InStr(p + lNew, sCopy$, replace$)

    Wend

    strReplace$ = sCopy$

End Function

The rewrite, Silly Graph Apps.txt:

Code: (Select All)
You'd think that people would've had enough of silly graph apps

I look around me, and I see it isn't so

Some people want to fill the world with silly graph apps

And what's wrong with that?

I'd like to know, 'cause here I go again

I graph you

I graph you

I graph you

I graph you

I can't explain, the feeling's plain to me (I graph you)

Now can't you see?

Ah, e gave me more, e gave it all to me (I graph you)

Now can't you see?

What's wrong with that?

I need to know, 'cause here I go again

I graph you

I graph you

Graph doesn't come in a minute

Sometimes it doesn't come at all

I only know that when I'm in it

It isn't silly, graph isn't silly, graph isn't silly at all

How can I tell you about my graphed one?

How can I tell you about my graphed one?

How can I tell you about my graphed one? (I graph you)

How can I tell you about my graphed one? (I graph you)

I graph you

I graph you

I graph you (I can't explain, the feeling's plain to me, say, can't you see?)

I graph you (Ah, e gave me more, e gave it all to me, say, can't you see?)

I graph you (I can't explain, the feeling's plain to me

Say, can't you see?)

{How can I tell you about my graphed one?}

I graph you (Ah, e gave me more, e gave it all to me

Say, can't you see?)

How can I tell you about my graphed one?

I graph you

I can't explain, the feeling's plain to me

(Say, can't you see?)

How can I tell you about my graphed one?

I graph you

Ah, e gave me more, e gave it all to me

(Say, can't you see?)

How can I tell you about my graphed one?

You'd think that people would've had enough of silly graph apps

I look around me and I see it isn't so, oh, no

Some people want to fill the world with silly graph apps

And what's wrong with that?