public class XUField : XField

Public Class XUField
	Inherits XField

Imports System
Imports BioloMICS.BioCallback
Imports BioloMICS.SharedClasses
Imports Biolomics.Utility.DatabaseConstants

Public Class Program

    <STAThread()>
    Shared Sub Main()
        Dim program As New Program
        program.ChangeField()
    End Sub

    '    Write sub functions here
    Public Sub ChangeField()
        '    get the current connection
        Dim SqlCo As XConnection = Run.GetCurrentConnection()
        If SqlCo Is Nothing Then
            Return
        End If

        '    get a table from its User name
        Dim TableDef As XTableDef = SqlCo.GetTableDefByUserNameEng("Your_Table_Name")
        If TableDef Is Nothing Then   '    may happen if that table doesn't exist
            Return
        End If
        '    load a Field from that table
        Dim FieldDefMap As New XFieldDefMap
        Dim FieldDef As XFieldDef = SqlCo.GetFieldByDBName("Your_U_Field_name", TableDef.Key)
        If FieldDef Is Nothing Then   '    that field doesn't exist
            Return
        End If
        FieldDefMap.Add(FieldDef)

        '    load record with id=6
        Dim Where As XWhere = XWhere.Eq(StaticFields.id, 6)
        Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where)

        For Each Record As XRecord In RecordMap
            Dim Field As XUField = TryCast(Record.Fields(FieldDef.Key), XUField)
            If Field Is Nothing Then   '    this field doesn't exist or is not a U-Field
                Continue For
            End If

            For Each item As XNameUrl In Field.UrlList
                '    fill in the field name if missing
                If item.Name.Length = 0 Then
                    If item.Url.Length = 0 Then   '    both are empty !
                        Continue For
                    End If
                    If item.Url.Length > 16 Then
                        item.Name = item.Url.Substring(0, 16)  '    copy part of the url into the name
                        Field.IsModified = True '    notify the parent field for any change in a subitem
                    Else
                        item.Name = item.Url '    copy the url into the name
                        Field.IsModified = True
                    End If
                End If
                '    check URL
                If item.Url.Length >= 4 AndAlso item.Url.Substring(0, 4).ToLower = "www." Then   '    URL starts with "www.", insert "http://"
                    item.Url = "http://" & item.Url
                    Field.IsModified = True
                ElseIf item.Url.Length >= 11 AndAlso item.Url.Substring(0, 11).ToLower <> "http://www." Then '    insert "http://www."
                    item.Url = "http://www." & item.Url
                    Field.IsModified = True
                End If
            Next

            Record.Save(False)
        Next

    End Sub
End Class