MortScript examples accumulation

michoob · Feb 20, 2012

Hi mariasx, I don't think your problem comes from the "foreach record in Array", but rather from the massive amount of string operations (Replace, Find, SubStr, Split)!
There is definitly something to do around these string operations...

I do not have much time to spend, but an idea might be trying to recode the whole script to avoid using all these string operations, but to use the IniRead and IniWrite functions and to store your data in a .ini file, where you would have a .ini section per your current csv column, and a code for each task... not sure if it would be better.

mariasx · Feb 21, 2012

Hi michoob

1. Thank you for answer. I did not change data(Strings operations). I tried to display different lists(Foreach record in Array) and performance was decreasing. So I think there is problem with memory and I do not know how to handle it.

2. How do you think data should be designed in INI file?

like that?

[lorem]
desc=Nam posuere iaculis
status=n
context=movies

[ipsum]
desc=pretium eu leo
status=n
context=movies

michoob · Feb 22, 2012

1. I do not say you change the data, but you obviousely use string operations for the display in your Foreach loop, and that is why performance is decreasing. And it is not decreasing because of memory, but rather because of CPU...
You might try to use MortScript 4.3b15 if not already the case, because it is faster.

2. Nope, I would rather see it like this, but then, the data is of course less readable than a csv file (but do yo care?):
[reference]
1=lorem
2=ipsum

[desc]
1=Nam posuere iaculis
2=pretium eu leo

[status]
1=n
2=n

[context]
1=movies
2=movies

RoryB · Feb 28, 2012

Sad to go

My Fuze no longer works. I currently have a loner Infuse 4G, but do not know what I will end up with.

I will not be able to continue development of Mortscripts, etc.

Sorry to go, but it has been fun.

I'll keep watching to see if anything comes up I need to respond to.

mariasx · Feb 28, 2012

so long RoryB

RoryB, it's a pity see You leaving. What will be Mortscript replacement for you? Are you looking for it?

RoryB · Feb 28, 2012

mariasx said:
RoryB, it's a pity see You leaving. What will be Mortscript replacement for you? Are you looking for it?

The loaner is a Droid, but I do not know what I'll end up with. So I am in limbo.

bbobeckyj · Feb 28, 2012

RoryB said:
The loaner is a Droid, but I do not know what I'll end up with. So I am in limbo.

Sell it on eBay and get yourself whatever you want.

mariasx · Feb 28, 2012

RoryB said:
The loaner is a Droid, but I do not know what I'll end up with. So I am in limbo.

I have an Android device too. For a six months I am still looking for Mortscript replacement for Android. I found some candidate like BASIC! + SQL. Even better could be Frink Programming Language but it still do not adequately meets Mortscript quallities.

I need one programming language for phone and desktop and Java is not what I am talking about. Adobe Flex is also an possible alternative.

Maybe Windows 8 will be salvation because it is Intel and also Arm processor compatible. I am curious.

lesscro · Mar 11, 2012

Thx for all RoRyB... you help lot of time and insipre me more than lot of time...

See yaaa in other place...

Deleted member 1890170 · Apr 8, 2012

Searching for control structure errors

I have a script with ~3,300 lines. Script is organized in parts MAIN and SUBS. Suddenly got error "Sub must not be in control structure". I know this errror only occurs if If/EndIf is not matching. Re-reading the script again and again I didn't find the missing EndIf. Hence decided to write a small script as listet next to make searching for the error cause easier

Code:

local()

Thoght I should share this script.

vivekiny2k · Apr 20, 2012

mwalt2 said:
Well, I figured out a simple script myself . This allows you to not use an HTC PhoneCanvas and still retain the use of the proximity sensor if your phone has one. In my case, this allows me to use Iconsoft PhonEx and have the screen turn off when next to my ear and turn on when held away from your ear.

Code:

If (RegValueExists("HKLM", "System\State\Phone", "Active Call Count") = FALSE)
RegWriteDWord("HKLM", "System\State\Phone", "PSensorStatus", 0)
ElseIf (RegValueExists("HKLM", "System\State\Phone", "Active Call Count") = TRUE)
RegWriteDWord("HKLM", "System\State\Phone", "PSensorStatus", 1)

does anybody know if there are keys/values in registry to find if
1. the phone is ringing.
2. the call is on (I believe the script mentioned above will work for that.)

it might help somebody. I wrote a script to play-pause, write the current song info in a file (because I keep losing my last pause point), and execute voice command if the music is paused. I ended up using screen off for nitrogen because poweroff or toggledisplay cause it to stop playing.

Code:

RunStatus=RegRead("HKLM","System\State\Nitrogen","Running")
If (Runstatus eq 1)
    SendCommand("Nitrogen",40001)
    sleep(1000)
    WriteFile("nitrogen-status.txt","^NL^",TRUE)
    CurrentTime = FormatTime( "y/m/d:h:i:s", TimeStamp() )
    WriteFile("nitrogen-status.txt","""CurrentTime:" & CurrentTime & "",TRUE)
    SongTitle=RegRead("HKLM","System\State\Nitrogen","SongTitle")
    WriteFile("nitrogen-status.txt","""SongTitle:" & SongTitle & "",TRUE)
    TimeElapsed=RegRead("HKLM","System\State\Nitrogen","TimeElapsed")
    WriteFile("nitrogen-status.txt","""TimeElapsed:" & TimeElapsed & "",TRUE)
    TimeTotal=RegRead("HKLM","System\State\Nitrogen","TimeTotal")
    WriteFile("nitrogen-status.txt","""TimeTotal:" & TimeTotal & "",TRUE)
    PlayStatus=RegRead("HKLM","System\State\Nitrogen","PlayStatus")
    If (PlayStatus lt 2)
        Setvolume(150)
        run("\windows\start menu\programs\voice speed dial.lnk")
        sleep(10000)
        Poweroff()
    Else
        Setvolume(200)
        run("\windows\start menu\programs\screen off.lnk")
    Endif
Else
    Setvolume(150)
    run("\windows\start menu\programs\voice speed dial.lnk")
    sleep(10000)
    Poweroff()
EndIf

vivekiny2k · May 12, 2012

since I coudln't find a way to get the weather on lock screen cpr file, I used following script to show weather in place of operator name when end key is pressed on lock screen. I am also think about updating the weather on double click.

Code:

If (RegValueExists("HKLM", "System\State\Phone", "Active Call Count") = FALSE)
        LockStatus=RegRead("HKLM","System\State","Lock")
        if (LockStatus gt 0)        
            WeatherStatus=RegRead("HKLM","Software\Microsoft\CHome\TitaniumWeather\CondensedPage","PluginLabel")
            Weathertime=RegRead("HKLM","Software\Microsoft\CHome\TitaniumWeather\Page1","Time")
            TimeLocation=Find(Weathertime,"Updated at")
            UpdateTime=Substr(Weathertime,TimeLocation + 10,9)
            RegWriteString("HKLM","System\State\Phone","Current Operator Name",WeatherStatus & UPdateTime)
        else
            Run("\Program Files\AEBPlus\AEBPlus.exe", 0021)
        endif
Else
    Run("\Program Files\AEBPlus\AEBPlus.exe", 0021)        
Endif

kastel71 · Jul 10, 2012

[HELP] how can I ...in Mortscript

I have a "gps.ini" file these parameters:

Code:

Port = 4
Baudrate = 56000

And I have a "sys.txt" file these parameters:

Code:

[gps]
port = "1"
baud = "4800"

I want to read the parameters values from "Port"and "Band from "gps.ini" and write them in the "sys.txt"

How can I do this with mortscript?

RoryB · Jul 10, 2012

kastel71 said:
I have a "gps.ini" file these parameters:

Code:

Port = 4 Baudrate = 56000

And I have a "sys.txt" file these parameters:

Code:

[gps] port = "1" baud = "4800"

I want to read the parameters values from "Port"and "Band from "gps.ini" and write them in the "sys.txt"

How can I do this with mortscript?

Does your gps.ini have a [section] defined?

9.13.3 Reading a value of an INI file (IniRead)
string = IniRead( file name, section, entry )
Reads an entry from an INI file. The section name must be passed without the brackets.
Example:
x = IniRead( "\My documents\test.ini", "Settings", "Test" )

9.13.4 Writing a value to an INI file (IniWrite)
IniWrite( file name, section, entry, value )
Writes an entry to an INI file. The section name must be passed without the brackets.
Be aware this causes MortScript to load, parse, and write the entire file. It might be better to do this
yourself (ReadFile, ForEach with split, WriteFile) if many values are modified.
Example:
IniWrite( "\My documents\test.ini", "Settings", "Test", "x" )

IniWrite( "\path to file\sys.txt", "gps", "port", IniRead( "\path to file\gps.ini", "gps", "port") )
IniWrite( "\path to file\sys.txt", "gps", "band", IniRead( "\path to file\gps.ini", "gps", "band") )

kastel71 · Jul 10, 2012

Thank you!!!

Mister B · Jul 31, 2012

tmail.exe ActiveWindow

on Wm6.5 what is the active window title for tmail sms & email accounts.
trying to map a buttons function for specific use while in sms & accounts but can't get ActiveWindow command to recognise tmail.

bbobeckyj · Jul 31, 2012

Mister B said:
on Wm6.5 what is the active window title for tmail sms & email accounts.
trying to map a buttons function for specific use while in sms & accounts but can't get ActiveWindow command to recognise tmail.

What happens when you use get active window?

Mister B · Jul 31, 2012

i'm using SMS / MMS as window title & with ElseIf ActiveWindow SMS / MMS it does not see tmail window active & carries out another base command from the script.

Deleted member 1890170 · Jul 31, 2012

Mister B said:
i'm using SMS / MMS as window title & with ElseIf ActiveWindow SMS / MMS it does not see tmail window active & carries out another base command from the script.

See also here:
http://xdaforums.com/showthread.php?t=313461

bbobeckyj · Jul 31, 2012

What happens when you use this script while tmail is active?

Sleep (5000)
Aw = activeWindow ()
Message (aw)

I recently gave up my HD2 as it started to die so unfortunately I can't test this myself, but I did keep a backup of all my WM6.5 stuff, I'm just checking through it...

MortScript examples accumulation

Retired Recognized Developer

Member

Retired Recognized Developer

Inactive Recognized Developer

Member

Inactive Recognized Developer

Senior Member

Member

Senior Member

Deleted member 1890170

Guest

Senior Member

Senior Member

Senior Member

Inactive Recognized Developer

Senior Member

Senior Member

Senior Member

Senior Member

Deleted member 1890170

Guest

Senior Member

Similar threads

Top Liked Posts