JP2K wrote: ↑August 28th, 2020, 11:02 amI was hoping, to increase my productivity, that i could use Excel as a Rainmeter Skin. Basically using it as a Background and every time i save my excel.xlsx file it would update my background with the same spreadsheet as well. so creating a link between rainmeter and the file. is that possible?
jsmorley wrote: ↑August 28th, 2020, 2:17 pmTo each his own, but I would SO use Lua for this... It's going to be much more straightforward to get all the rows and columns into a table, and parse it out based on "newest" or whatever criteria you want. Lua is just particularly good at this kind of data. A "table" in Lua actually is more or less a spreadsheet.
dvo wrote: ↑August 28th, 2020, 1:41 pma harder part is creating a adaptive skin to create all the tables and rows in a skin ...
Ok, so following the excellent suggestions by mak_kawa and jsmorley and some bits from my parts, here it is the result (nothing to worry about creating tables, rows and columns,
as long as you only want to display the file contents - if you want to have hundreds of meters for each cell from the Excel file and manipulate them, don't count on me, as I like being compact about things). By the way, this works with both CSV and TAB delimited TXT...
Skin:
Excel_1.0.0.rmskin
Skin Code:
Code: Select all
[Variables]
FilePath=F:\Wireless\
FileName=Book1.csv
FileDate=13243119723
EvenColColor=255,128,64,255
OddColColor=64,255,128,255
BackColor=0,0,0,64
FontFace=Consolas
FontSize=12
Padding=5
TrailingSpaces=" "
TrailingSpacesCount=10
[Rainmeter]
Update=1000
DynamicWindowSize=1
AccurateText=1
---Measures---
[MeasureFolder]
Measure=Plugin
Plugin=FileView
Path="#FilePath#"
ShowDotDot=0
ShowFolder=0
WildcardSearch="#FileName#"
Count=1
UpdateDivider=10
OnUpdateAction=[!CommandMeasure MeasureFolder "Update"]
[MeasureDate]
Measure=Plugin
Plugin=FileView
Path=[MeasureFolder]
Type=FileDate
IfCondition=([MeasureDate:]>#FileDate#)
IfTrueAction=[!SetVariable FileDate "[MeasureDate:]"][!WriteKeyValue Variables FileDate "[MeasureDate:]"][!CommandMeasure MeasureFile "Update"]
DynamicVariables=1
[MeasureFile]
Measure=WebParser
URL="file://#FilePath##FileName#"
RegExp=(?siU)^(.*)$
RegExpSubstitute=1
Substitute="([\t,])":"#TrailingSpaces#[\x0009]","(.{#TrailingSpacesCount#}).*?(\t)":"\1\2"
DynamicVariables=1
---Meters---
[MeterFile]
Meter=String
MeasureName=MeasureFile
FontFace=#FontFace#
FontSize=#FontSize#
FontWeight=400
FontColor=#OddColColor#
SolidColor=#BackColor#
StringEffect=Shadow
FontEffectColor=0,0,0,255
Padding=#Padding#,#Padding#,#Padding#,#Padding#
AntiAlias=1
InlineSetting=Color | #EvenColColor#
InlinePattern=[^\t]*\t+([^\t]*\t+)
Text="%1"
DynamicVariables=1
(go to Menu / Developer / View Code, right click ThisWorkbook / View Code and paste the below - remove the appropriate SaveAs line to only save to CSV or TXT):
Code: Select all
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim SourceWB As Workbook, DestWB As Workbook
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Set SourceWB = ActiveWorkbook
ActiveSheet.Copy
Set DestWB = ActiveWorkbook
DestWB.SaveAs Filename:=Left(SourceWB.FullName, (InStr(SourceWB.FullName, ".") - 1)) + ".csv", FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
DestWB.SaveAs Filename:=Left(SourceWB.FullName, (InStr(SourceWB.FullName, ".") - 1)) + ".txt", FileFormat:=xlTextWindows, ConflictResolution:=xlLocalSessionChanges
DestWB.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
(odd and even column count):
Book1.xlsm
Book1.xlsm
Preview (odd column count):
Excel - Odd Columns.jpg
Preview (even column count):
Excel - Even Columns.jpg
Nice effects, right? Say thanks to InlineSettings for that.
Obviously, the
FilePath and
FileName variables should be adjusted to your needs (the path must contain a
\ at the end) and the
TrailingSpacesCount value should match the number of spaces in
TrailingSpaces (the latter two control the width of a "column"). I had to use this trick, along with setting a
monospaced font for the text (strongly recommended in this implementation) because it's the only way to "align" things automatically in "columns", as characters have the same width. I could have let just the TAB characters instead, but what happened is that there was only one TAB between values and for longer values the "table simulation" here would have become a bit messy as the length of the longer text would have exceeded the length of the other texts and their trailing TABs from the same column but different rows. There was also the option of actually parsing the file using either native code or Lua in order to create a meter for each cell, but as I said, having hundreds of meters in the skin was not a job for me, LOL.
Bear in mind that CSV and TXT would not work with multiple sheet workbooks, as far as I know. Also, make sure you save your workbook as Macro-Enabled Workbook (XLSM) in order to have the macro available (or you could just copy the samples above instead).
Feel free to adjust things from the
[Variables] section - the names of the variables are self-explanatory, but if you need more info, just ask.
You do not have the required permissions to view the files attached to this post.
