How to change a text into upper case in a Drawing File

[deffysalfauzi]

Question

How to change a text into upper case in this ilogic. example in Project & Part Number in iProperties Model.

Based on this post

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/ilogic-to-change-sheet-name-in-drawi... 

Public Sub Main
	
	Dim a As Inventor.DrawingDocument = ThisDrawing.Document
	Dim sht As Inventor.Sheet
	Dim shts As Inventor.Sheets
	Dim c2 As Integer = 0
	For Each sht In a.Sheets
		c2=c2+1
		Dim d As Inventor.Document = sht.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument

		Dim c1 As String = d.PropertySets.Item(3).Item("Project").Value
		
		Dim c3 As String = d.PropertySets.Item(3).Item("Part Number").Value
		
		If c2>0 And c2<10 Then
		sht.Name = c1 & "-" & "00" & c2 & " - " & c3 '& ":" & c2
	ElseIf c2>99 And c2 <1000
		sht.Name = c1 & "-" & "" & c2 & " - " & c3 '& ":" & c2
	ElseIf c2>9 And c2<100
		sht.Name = c1 & "-" & "0" & c2 & " - " & c3 '& ":" & c2
	End If
			
	Next
	
End Sub

[JelteDeJong]

Strings have a method ToUpper. I think that is what you are looking for.

Public Sub Main()

	Dim a As Inventor.DrawingDocument = ThisDrawing.Document
	Dim sht As Inventor.Sheet
	Dim shts As Inventor.Sheets
	Dim c2 As Integer = 0
	For Each sht In a.Sheets
		c2 = c2 + 1
		Dim d As Inventor.Document = sht.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument

		Dim c1 As String = d.PropertySets.Item(3).Item("Project").Value
		c1.ToUpper()

		Dim c3 As String = d.PropertySets.Item(3).Item("Part Number").Value
		c3.ToString()

		If c2 > 0 And c2 < 10 Then
			sht.Name = c1 & "-" & "00" & c2 & " - " & c3 '& ":" & c2
		ElseIf c2 > 99 And c2 < 1000 Then
			sht.Name = c1 & "-" & "" & c2 & " - " & c3 '& ":" & c2
		ElseIf c2 > 9 And c2 < 100 Then
			sht.Name = c1 & "-" & "0" & c2 & " - " & c3 '& ":" & c2
		End If
	Next

End Sub