Guild of Project Controls: Compendium | Roles | Assessment | Certifications | Membership

Tips on using this forum..

(1) Explain your problem, don't simply post "This isn't working". What were you doing when you faced the problem? What have you tried to resolve - did you look for a solution using "Search" ? Has it happened just once or several times?

(2) It's also good to get feedback when a solution is found, return to the original post to explain how it was resolved so that more people can also use the results.

Has anyone ever translated a P6 schedule into Russian?

1 reply [Last post]
Thu, 2009-11-19 10:29
Oliver Melling
User offline. Last seen 4 years 44 weeks ago. Offline
Joined: 24 Apr 2007
Posts: 595
Groups: The GrapeVine
We have resource to do the translation but the planner working on the project says he cannot import the data directly from excel and has to do it by text editor line by line.

I’m guessing its a font/alphabet/punctuation issue.

If anyone has any experience of this i would like to hear from them.

Cheers.
Top

Replies

Fri, 2009-11-20 05:33
#1
Hannes de Bruyne
User offline. Last seen 1 year 46 weeks ago. Offline
Joined: 25 Jul 2005
Posts: 154
Groups: None
Hello Oliver

I know this problem from Primavera P3.1, in P6 I did not try this yet. So for P3.1 I wrote this small macro in Excel:

Name of the worksheet must be Activity, Column 21 has the Cyrillic text, column 12 gets some Hieroglyphic signs which can be read by Primavera, first text in row 3.


Dim Zwischen As String, Test as sting, i as integer, iRow as integer

Sub TranslateRussian()
iRow = 3
Worksheets("Activity").Activate
Do While Not IsEmpty(Cells(iRow, 21))
Application.StatusBar = "© Hannes de Bruyne Transforming Row: " & iRow - 2
If Cells(iRow, 21) <> "" Then
Test = ""
For i = 1 To Len(Cells(iRow, 21))
Zwischen = AscW(Mid(Cells(iRow, 21), i, 1))
Test = Test & IIf(Zwischen < 256, ChrW(Zwischen), ChrW(Zwischen - 848))
Next i
Cells(iRow, 12) = Test
End If
iRow = iRow + 1
Loop
End SUB
Top