Abandoned [RELEASE] Trade Computer Extension

Status
Thread Closed: Not open for further replies.
I even deleted the time formats in Logbook.mdb tables, it doesn't help neither. But it's ok, I don't really care if my OS date format is dd/mm/yyyy or dd.mm.yyyy :D
 
Hey Eventure Finally got it all working scanning good now fully upgraded and using Warox's suggestion to solve the date format issue I to don't care how the dates are displayed provided its the right date that is :cool:
 
Last edited:
Curious, is it possible to have TCE work out distance between current system (non-station) and another system?
Only asking because it would be nice to, for when I'm deep space exploring, to know how far I am from the closest station in the database
I realize it's abit out of the scope of TCE, so no worries if the answer is no
 
Sorry, but you have to rescan all of them. Some of the last looking good, but i would recommend to checking them too.

I updated to TCE v1.42 beta 2 and I am using the new panel display with both pop up disabled

Instead of going back 14 jumps and doing the trip again to fix the systems positions,
I took no chance and just went back to my 2015-06-07 db backup, made with TCE V1.41 beta 7, which only contains the data of up to the day before I made the mistake.
I have one large jump or 381 LY in my travel logbook because of the missing history but everything else seems fine so far !
The new jump have the proper distance and previous jumps I have made since now appear in Cartography as they should, once I have re-set my Jump range in the Trade panel :)

Thanks again Eventure !!!
 
Edited

I installed version 1.41. Moved the database files from 1.40beta1. Whenever I try to add station the windows taskbar appears at the bottom and the "Add New Station dialogue" does not have a save button, therefore I cannot save the station. I am running ED in borderless mode.

How do I resolve this?

Try activatimg "old panel display mode" in Options. This fixed the taskbar issue for me. Don't know about the "Add Station" dialogue issue.

Rob
 
Last edited:
i finally got this to work (i think ) last night...it now says what system im in ect...

but i have noticed i have no systems or stations listed its all empty? trade tab is locked aswell.


Do i have to type the stuff in myself in regards to systems ect?.......logbook stuff i understand thats what your meant to do.....but am i supposed to enter all my details aswell?

i thought this connects with the game and uses the data?




any help gents? im a wee bit confused.
 
i finally got this to work (i think ) last night...it now says what system im in ect...

but i have noticed i have no systems or stations listed its all empty? trade tab is locked aswell.


Do i have to type the stuff in myself in regards to systems ect?.......logbook stuff i understand thats what your meant to do.....but am i supposed to enter all my details aswell?

i thought this connects with the game and uses the data?




any help gents? im a wee bit confused.

Hi. Yokai's guide is very well done to explain how to use TCE : https://forums.frontier.co.uk/showthread.php?t=119873

But TCE can only read the data in the ED's netlog file. That's the only data that modders are authorized to extract from ED as far as I know. So yes, you will have to enter position for some stars (some non colonized systems).
Then if you're docking at a station, it will appear as "Sector XX", so you go to Database Panel => Station and you enter all the data (name, distance, services etc...). Some stations are already listed but for the others, you'll have to enter the name too. Only until you've registered a station you'll have access to the Commodities tab to scan the market (if you installed EliteOCR) or to manually fill it. Then you'll have access to the Trade Tab, wich is logical as you won't be able to do it if you have no trading data. TCE is an "ingame" database mod but you'll have to do the work to feed it.

Again, FD's terms of use don't allow modders to have access to game informations other than those who appear in the netlog file, so final users are not allowed to extract stations info and market prices etc...
Finally, TCE is NOT an automatic data collector but is a great help and a wonderful tool to exploit data you collected without having to Alt + Tab or using a second screen or any other device or PC.

Hope this clarified a bit. Again I urge you to read the marvelous Yokai's guide to TCE : https://forums.frontier.co.uk/showthread.php?t=119873 as I promise you won't lose your time doing so.
 
Hi. Yokai's guide is very well done to explain how to use TCE : https://forums.frontier.co.uk/showthread.php?t=119873

But TCE can only read the data in the ED's netlog file. That's the only data that modders are authorized to extract from ED as far as I know. So yes, you will have to enter position for some stars (some non colonized systems).
Then if you're docking at a station, it will appear as "Sector XX", so you go to Database Panel => Station and you enter all the data (name, distance, services etc...). Some stations are already listed but for the others, you'll have to enter the name too. Only until you've registered a station you'll have access to the Commodities tab to scan the market (if you installed EliteOCR) or to manually fill it. Then you'll have access to the Trade Tab, wich is logical as you won't be able to do it if you have no trading data. TCE is an "ingame" database mod but you'll have to do the work to feed it.

Again, FD's terms of use don't allow modders to have access to game informations other than those who appear in the netlog file, so final users are not allowed to extract stations info and market prices etc...
Finally, TCE is NOT an automatic data collector but is a great help and a wonderful tool to exploit data you collected without having to Alt + Tab or using a second screen or any other device or PC.

Hope this clarified a bit. Again I urge you to read the marvelous Yokai's guide to TCE : https://forums.frontier.co.uk/showthread.php?t=119873 as I promise you won't lose your time doing so.



ahh thankyou sir!

what a wonderfull tool,i see now this is for the explorers of this harsh and cruel galaxy.....but alas I may have no need for it just yet.

I made a cockpit wich houses 6 phones/tablets.....trade tools...ED shipyard.....roccat power grids(3 active)......and I have a android app for elite that is acommanders log..where you can note down entries of systems and stuff.

I love all these extras that we can implement into the game...that's why this caught my eye...

I should have actually read the description properly lol.
 
Hi Eventure,

1.42 Beta 2 working great! Thanks for the reminder when shutting down ED without shutting down TCE.

There used to be a panel that came up when I SC into a system. I think it was the "show star system summary when entering a new system" panel. Nothing pops up now, even though I have that one checked. Did you change that?

Also, a suggested feature: for the "show star system summary when entering a new system" panel... I use it to see the note I put in for the system, as it told me how to approach the planet/starport for the fastest drop out of SC to face the mail slot. So, is there a way to put a timer on that panel after it pops up? Say 5 or 8 seconds?
 
Hi Eventure,

1.42 Beta 2 working great! Thanks for the reminder when shutting down ED without shutting down TCE.

There used to be a panel that came up when I SC into a system. I think it was the "show star system summary when entering a new system" panel. Nothing pops up now, even though I have that one checked. Did you change that?

Also, a suggested feature: for the "show star system summary when entering a new system" panel... I use it to see the note I put in for the system, as it told me how to approach the planet/starport for the fastest drop out of SC to face the mail slot. So, is there a way to put a timer on that panel after it pops up? Say 5 or 8 seconds?

Hmm.... will check it, if it is working (for systems in database, not unknown of course). Bragolatch said, he have to disable the popup, because of issues with ED itself, so i assume, it is working.

For your request of a timer, you meaning time to hide the summary after it displays?
 
Last edited:
Hmm.... will check it, if it is working (for systems in database, not unknown of course). Bragolatch said, he have to disable the popup, because of issues with ED itself, so i assume, it is working.

For your request of a timer, you meaning time to hide the summary after it displays?

Yes.

This way, it comes up, I can read my note telling me how to approach the planet/starport or glance at anything else, then it would re-hide itself after a few seconds (10 seconds is probably too long). I hope that makes sense.

I got a +1 rep for this suggestion, so there is at least one other person that likes that idea :) .
 
Bug Report V1.42 Beta2


  • Travel Logbook / Store / Conflict Zone
After adding a Conflict Zone (High) the Inner System Location (Travel Logbook) is changed to Conflict Zone (High). There are no notes added (Travel Logbook)​
After adding a Conflict Zone (Low) the Inner System Location (Travel Logbook) remains Sector ID and the is a Note added Stored: Conflict Zone (Low) Date, Time etc​
 
Bug Report V1.42 Beta2


  • Travel Logbook / Store / Conflict Zone
After adding a Conflict Zone (High) the Inner System Location (Travel Logbook) is changed to Conflict Zone (High). There are no notes added (Travel Logbook)​
After adding a Conflict Zone (Low) the Inner System Location (Travel Logbook) remains Sector ID and the is a Note added Stored: Conflict Zone (Low) Date, Time etc​

Thanks for report. Found the issues. Both get fixed in next release.
 
Crash during commodity scan

It does crash, if I try to scan the commodities with the OCR button.



Sub OCR_Read()


Dim fso As FileSystemObject, sLine As String, z As Long, instream As Object, ArOCR_Imp(1 To 1000) As String, OCR_Export As String, ZID As Long, a As Long, ArOCR_Data As Variant, x As Long
Dim Ware_txt As String, t As Long, x1 As Long, id As Long, c As Long, temp As String, Sell As Double, Buy As Double, Stock As Double, lLZeile As Long, iLSpalte As Long, b As Long, Good_txt As String
ReDim ArOCR_Data(1 To AzGoods, 1 To 3)
Dim ts As Double
ts = Timer
ArOCR_Data = Worksheets("DB_StPrices").Range("C" & Worksheets("Werte").Cells(91, 5).Value & ":F" & Worksheets("Werte").Cells(91, 5).Value + AzGoods - 1)
Worksheets("DB_Goods").Activate
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Add Key:=Range( _
"A2:A1001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Goods").Sort
.SetRange Range("A1:D1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ArGoods = Worksheets("DB_Goods").Range("A2:D" & AzGoods + 1)

Set fso = New FileSystemObject
AppPath = ActiveWorkbook.Path
OCR_Export = AppPath & "\OCR_Export\export.csv"
z = 0
Worksheets("Import_csv").Range("A1:A1001").ClearContents
If fso.FileExists(OCR_Export) = True Then
Worksheets("Import_Csv").Activate
With ActiveWorkbook.Sheets("Import_csv").QueryTables.Add(Connection:= _
"TEXT;" & OCR_Export, Destination:=Range("Import_csv!$A$1"))
.Name = "CAPTURE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = -535
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Connections("export").Delete
Ar_Speed(4) = Timer - ts ' Import file
ts = Timer
Do While Worksheets("Import_csv").Cells(z + 1, 1) <> ""
z = z + 1
sLine = Worksheets("Import_csv").Cells(z, 1)
If sLine <> "" Then
ZID = Asc(sLine)
End If
If ZID = 9 Or ZID = 160 Or ZID = 32 Then
sLine = Replace(sLine, Chr(ZID), "")
End If
ArOCR_Imp(z) = sLine
Loop
t = 0
For a = 1 To z
If Left(ArOCR_Imp(a), 15) = "<commodityconf=" Then
t = t + 1
x = Len(ArOCR_Imp(a))
Ware_txt = Mid(ArOCR_Imp(a), 22, x - 22)
x1 = InStr(1, Ware_txt, "<")
If x1 <> 0 Then
Ware_txt = Left(Ware_txt, x1 - 1)
Else
Ware_txt = ""
End If
For b = 1 To AzGoods
Good_txt = Replace(ArGoods(b, 2), Chr(32), "")
If Good_txt = UCase(Ware_txt) Then
id = b
temp = Mid(ArOCR_Imp(a + 1), 17, 6)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Sell = Val(Left(temp, x1 - 1))
Else
Sell = 0
End If
temp = Mid(ArOCR_Imp(a + 2), 16, 6)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Buy = Val(Left(temp, x1 - 1))
Else
Buy = 0
End If
temp = Mid(ArOCR_Imp(a + 5), 19, 10)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Stock = Val(Left(temp, x1 - 1))
Else
Stock = 0
End If
ArOCR_Data(id, 3) = Sell
ArOCR_Data(id, 2) = Buy
ArOCR_Data(id, 4) = Stock
a = a + 8
b = AzGoods
End If
Next b
End If
Next a
Ar_Speed(5) = Timer - ts ' read data
ts = Timer
' For a = 1 To AzGoods
Worksheets("DB_StPrices").Range("C" & Worksheets("Werte").Cells(91, 5).Value & ":F" & Worksheets("Werte").Cells(91, 5).Value + AzGoods - 1) = ArOCR_Data
' If ArOCR_Data(a, 1) <> "" Then
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 4) = ArOCR_Data(a, 2)
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 5) = ArOCR_Data(a, 1)
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 6) = ArOCR_Data(a, 3)
' Worksheets("Werte").Cells(102, 2).Value = 1
' End If
' Next a
Worksheets("Werte").Cells(102, 2).Value = 1
Worksheets("DB_Goods").Activate
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Add Key:=Range( _
"B2:B1001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Goods").Sort
.SetRange Range("A1:D1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Erase ArOCR_Data
Erase ArOCR_Imp
Ar_Speed(6) = Timer - ts ' buffer data
End If

End Sub
 
It does crash, if I try to scan the commodities with the OCR button.



Sub OCR_Read()


Dim fso As FileSystemObject, sLine As String, z As Long, instream As Object, ArOCR_Imp(1 To 1000) As String, OCR_Export As String, ZID As Long, a As Long, ArOCR_Data As Variant, x As Long
Dim Ware_txt As String, t As Long, x1 As Long, id As Long, c As Long, temp As String, Sell As Double, Buy As Double, Stock As Double, lLZeile As Long, iLSpalte As Long, b As Long, Good_txt As String
ReDim ArOCR_Data(1 To AzGoods, 1 To 3)
Dim ts As Double
ts = Timer
ArOCR_Data = Worksheets("DB_StPrices").Range("C" & Worksheets("Werte").Cells(91, 5).Value & ":F" & Worksheets("Werte").Cells(91, 5).Value + AzGoods - 1)
Worksheets("DB_Goods").Activate
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Add Key:=Range( _
"A2:A1001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Goods").Sort
.SetRange Range("A1:D1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ArGoods = Worksheets("DB_Goods").Range("A2:D" & AzGoods + 1)

Set fso = New FileSystemObject
AppPath = ActiveWorkbook.Path
OCR_Export = AppPath & "\OCR_Export\export.csv"
z = 0
Worksheets("Import_csv").Range("A1:A1001").ClearContents
If fso.FileExists(OCR_Export) = True Then
Worksheets("Import_Csv").Activate
With ActiveWorkbook.Sheets("Import_csv").QueryTables.Add(Connection:= _
"TEXT;" & OCR_Export, Destination:=Range("Import_csv!$A$1"))
.Name = "CAPTURE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = -535
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Connections("export").Delete
Ar_Speed(4) = Timer - ts ' Import file
ts = Timer
Do While Worksheets("Import_csv").Cells(z + 1, 1) <> ""
z = z + 1
sLine = Worksheets("Import_csv").Cells(z, 1)
If sLine <> "" Then
ZID = Asc(sLine)
End If
If ZID = 9 Or ZID = 160 Or ZID = 32 Then
sLine = Replace(sLine, Chr(ZID), "")
End If
ArOCR_Imp(z) = sLine
Loop
t = 0
For a = 1 To z
If Left(ArOCR_Imp(a), 15) = "<commodityconf=" Then
t = t + 1
x = Len(ArOCR_Imp(a))
Ware_txt = Mid(ArOCR_Imp(a), 22, x - 22)
x1 = InStr(1, Ware_txt, "<")
If x1 <> 0 Then
Ware_txt = Left(Ware_txt, x1 - 1)
Else
Ware_txt = ""
End If
For b = 1 To AzGoods
Good_txt = Replace(ArGoods(b, 2), Chr(32), "")
If Good_txt = UCase(Ware_txt) Then
id = b
temp = Mid(ArOCR_Imp(a + 1), 17, 6)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Sell = Val(Left(temp, x1 - 1))
Else
Sell = 0
End If
temp = Mid(ArOCR_Imp(a + 2), 16, 6)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Buy = Val(Left(temp, x1 - 1))
Else
Buy = 0
End If
temp = Mid(ArOCR_Imp(a + 5), 19, 10)
x1 = InStr(1, temp, "<")
If x1 <> 0 Then
Stock = Val(Left(temp, x1 - 1))
Else
Stock = 0
End If
ArOCR_Data(id, 3) = Sell
ArOCR_Data(id, 2) = Buy
ArOCR_Data(id, 4) = Stock
a = a + 8
b = AzGoods
End If
Next b
End If
Next a
Ar_Speed(5) = Timer - ts ' read data
ts = Timer
' For a = 1 To AzGoods
Worksheets("DB_StPrices").Range("C" & Worksheets("Werte").Cells(91, 5).Value & ":F" & Worksheets("Werte").Cells(91, 5).Value + AzGoods - 1) = ArOCR_Data
' If ArOCR_Data(a, 1) <> "" Then
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 4) = ArOCR_Data(a, 2)
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 5) = ArOCR_Data(a, 1)
' Worksheets("DB_StPrices").Cells(Worksheets("Werte").Cells(91, 5).Value - 1 + a, 6) = ArOCR_Data(a, 3)
' Worksheets("Werte").Cells(102, 2).Value = 1
' End If
' Next a
Worksheets("Werte").Cells(102, 2).Value = 1
Worksheets("DB_Goods").Activate
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB_Goods").Sort.SortFields.Add Key:=Range( _
"B2:B1001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DB_Goods").Sort
.SetRange Range("A1:D1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Erase ArOCR_Data
Erase ArOCR_Imp
Ar_Speed(6) = Timer - ts ' buffer data
End If

End Sub

Hello, please give me the error text and point me to the codeline, where TCE have the problem. Thanks.
@I assume, you didnt install the runtime, mentioned at the main post?

Edited

I installed version 1.41. Moved the database files from 1.40beta1. Whenever I try to add station the windows taskbar appears at the bottom and the "Add New Station dialogue" does not have a save button, therefore I cannot save the station. I am running ED in borderless mode.

How do I resolve this?

Perhaps you could show me the Station Database panel (screenshot), how you entered the data.
It is required to enter the name of the station and selecting an allegiance, economy and station type. Thereafter the "SAVE" button appear.
 
Last edited:
Hi! All starts but overscreen don't work in game, I see it on desktop/chrome but not in game. Tryed to config button for hide/unhide but it didn't work.
Thanks.
 
Hi! All starts but overscreen don't work in game, I see it on desktop/chrome but not in game. Tryed to config button for hide/unhide but it didn't work.
Thanks.

Please select the borderless window mode of Elite Dangerous. Also please read Yokai's guide for TCE, noted at the first post. Added the question to the FAQ section.

Curious, is it possible to have TCE work out distance between current system (non-station) and another system?
Only asking because it would be nice to, for when I'm deep space exploring, to know how far I am from the closest station in the database
I realize it's abit out of the scope of TCE, so no worries if the answer is no

Quite easy to find out. Look into your logbook under Stored Locations. The category Blackmarkets, Outfittings and Shipyards holds your recorded stations and the distance to them are automatically calculated from your location. The requirement is, that you are at a recorded star system, not in unknown space.
 
Last edited:
Been working fine all this time, getting the following error on 1.42 B2, any idea what could be the problem ? Untitled.jpg
 
Been working fine all this time, getting the following error on 1.42 B2, any idea what could be the problem ?

Its your date format of your OS. Please use a DD.MM.YYYY format, untill i have a solid solution for the issue. Added the recommended date format as a prerequisite for TCE for the moment.

Or look here, perhaps it will fix your problem. Please report back, if its working.
 
Last edited:
Status
Thread Closed: Not open for further replies.
Back
Top Bottom