Step25：AMP元ファイルのURLを追加する｜canonical｜Excel VBA
変換後のAMPファイルに変換元ファイルのURLを、<link rel="canonical">タグを使い追加します。canonicalはなるべく前に配置する方がいいそうなので、<head>の後に挿入します。
Homeに戻る > AMP変換ソフト作成 メニューへ
URLをG3セルに追加しました。
必要ならば入力チェックを追加してください。
・引数はURLです。
・Instrで<head>を検索します。必ずあるはずなので、見つからなかった場合の処理は行いません。
・<head>の後ろに改行があるかどうかチェックします。なければ改行を付けます。
・<link rel="canonical" href="AMP元ファイルのURL">を作成します。
・<head>の前後をつないで完了です。
Private Sub MyAddSrcUrl(surl As String)
Dim ln As Long
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim lc As Long
ln = InStr(1, sUtfBuf, "<head>", vbTextCompare)
If Mid(sUtfBuf, ln + 6, 1) <> vbCr Then
s1 = Left(sUtfBuf, ln + 5) & vbCr
s2 = Right(sUtfBuf, Len(sUtfBuf) - ln - 5)
Else
s1 = Left(sUtfBuf, ln + 6)
s2 = Right(sUtfBuf, Len(sUtfBuf) - ln - 6)
End If
s3 = "<link rel=""canonical"" href=""" & surl & """>"
sUtfBuf = s1 & s3 & vbCr & s2
Debug.Print Left(sUtfBuf, 1000)
End Sub
実行結果です。
<HEAD>の次にcanonicalが挿入されています。
必要ならば入力チェックを追加してください。
VBAでURLを挿入する
下のMyAddSrcUrlプロシージャを追加しました。・引数はURLです。
・Instrで<head>を検索します。必ずあるはずなので、見つからなかった場合の処理は行いません。
・<head>の後ろに改行があるかどうかチェックします。なければ改行を付けます。
・<link rel="canonical" href="AMP元ファイルのURL">を作成します。
・<head>の前後をつないで完了です。
Private Sub MyAddSrcUrl(surl As String)
Dim ln As Long
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim lc As Long
ln = InStr(1, sUtfBuf, "<head>", vbTextCompare)
If Mid(sUtfBuf, ln + 6, 1) <> vbCr Then
s1 = Left(sUtfBuf, ln + 5) & vbCr
s2 = Right(sUtfBuf, Len(sUtfBuf) - ln - 5)
Else
s1 = Left(sUtfBuf, ln + 6)
s2 = Right(sUtfBuf, Len(sUtfBuf) - ln - 6)
End If
s3 = "<link rel=""canonical"" href=""" & surl & """>"
sUtfBuf = s1 & s3 & vbCr & s2
Debug.Print Left(sUtfBuf, 1000)
End Sub
実行結果です。
<HEAD>の次にcanonicalが挿入されています。
Homeに戻る > AMP変換ソフト作成 メニューへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved